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Yes, it’s back! Due to popu¬ 
lar demand, we bring you 
the Computer & Video 
Games Book of Games III! 

said it couldn’t be 
done—but we've come up 
with another amazing col¬ 
lection of space shoot-outs, 
adventures and arcade 
action for you to enjoy. 

All this and we’ve got 
prizes too! Just turn to the 
back page of this Book of 
Games and you’ll find out 
how to win a Microvitec col¬ 
our monitor in our easy to 
enter competition. 

And remember, if you have 
any problems with the list¬ 
ings in this Book of Games, 
don’t hesitate to call the 
Bug Hunter. All the games 
are tried and tested by our 
team of reviewers so we 
reckon they are Bug free. 

But Screaming Foul-Up 
may have sneaked some in 
when we were looking the 
other way—so the Bug Hunt¬ 
er will be waiting to help 
you out. Check out the 
C&VG contents page for the 
Bugphone number! 

We hope you enjoy this 
Book of Games as much as 
the others we’ve sent your 
way. But for now—play on! 

The Book of Games is a supplement to Computer & Video Games magazine. Editorial and advertisement offices: Durrant House, 8 Herbal Hill, London EC1R 5EJ. Tel: Editorial 
01-278 6556. Advertising 01-278 6552. Published and distributed by EMAP National Publications Ltd. Typeset by Camden Typesetters. Printed by Eden Fisher (Southend) Ltd. 
© Computer & Video Games Ltd ISSN 0261 3697. 



BATTLE TANKS. 3 

Can you hold the enemy’s forces at bay long enough for reinforcements to 
reach your beleaguered tank battalion? A game of suspense and strategy for 
the Dragon 32. 

BUG-OUT.6 

You’ll wish you hadn’t gone out in the garden. The fertiliser you put on your 
favourite plants has turned the insects rather nasty and you’ll have to get 
moving with the pesticide. Atari. 

PHARAOH’S TOMB.9 

Dare you venture into the long lost tomb of Nefertiti, not knowing what horrors 
await you? For adventurous Spectrum owners only. 

outlaw.12 

Step into the shoes of one of the wild west’s last great heroes, battling against 
bank robbers and highwaymen. A must for sharp shooting Atari owners. 

MARTIAN INVASION. 15 

The little green monsters are coming and brave VIC 20s are required to fight off 
the menacing attack. 

cricket..19 

The British summer being what it is, the cricket season should be washed out as 
usual. But, as long as you have a Spectrum back in the pavilion, you’ll never be 
without your favourite game. 

DODGE CITY .... 23 

You are desperate for money and you are willing to take any job that comes 
along, even if it means being the sheriff of the roughest, toughest town in the 
west. Electron and BBC. 

HOTAIR. 29 

Take to the skies in a balloon with a little help from a Commodore 64. Around 
the world in 64K? 

HELI-BOMBER. 32 

Only your shooting skill will save you and your damaged helicopter, in a game of 
speed and co-ordination for the VIC. 

PLATFORM WILLY. 34 

Yes, Miner Willy is still stuck down the mine and this time all the lights have 
gone out. Can you help him fix ail the lights and find his way back to the 
surface? Spectrum. 

LUDO . 37 

Commodore 64 version of the classic board game for up to four people. 

ROX20. 42 

Being the captain of a deep space cargo ship isn’t as easy as you thought. A 
huge asteroid belt is approaching fast and you had better get your trigger finger 
ready, and blast away. VIC with 3K expansion. 

MOTOR RACER.... 45 

The thrills and spills of the racing track are waiting for any Texas owner who’s 
brave enough to take the wheel. 

SKI-ING. 48 

Bring the Alps into your living room. This ski-ing game is so realistic it will have 
you shivering with fear. Spectrum. 

BOUNTY HUNTER.. 50 

A group of robots have overriden the restraint circuits and have gone on an orgy 
of killing. You have been called in as the world’s best robot hunter to track them 
down. You’ll need a strong nerve and a ZX Spectrum. 
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BATTLE TAHKS 



90S I IFpieK<34«*|Z3 0 ~ ,rkim ' “ 
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920 RETURN 
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J** RETURN 
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»0 print 
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* 2*2 PRINT" SHI 
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1030 FORI. 
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113 S?p^-is«j^ I ??ii’^SKSt?!:5>"®’«' m * ,K '' , ™' : " T * 


9TRXNOTC8B/ 156> 


1349 PR1NT9241 


1359 PRINT9273*"> DRIVE"/ 

1369 PR I NTH303/ ’’< FIRE") 

1379 PRINT9417; "writt**"JCHR*< 129>/ "b*"/CHR»< 121 

1399 PRINT9499/” »RES9 SPACE BAR 

1399 SCREENS>1 

1499 P0RI a lT099>IFINKEV9< >" "THENNEXTELBERETURN 
1419 PRINT9489," PPM* »F«e* bar "i 

1439 FQR?**1TQ5B 1 IFINKEYiO" "THENNEKTELSBRETURN 

1449 C0T01389 
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RUNS ON AN ATARI 800 WITH JOYSTICK 



Program Variables: 

GR=pointer to new character set. 

Location 756 normally points to character set in ROM. 

The first block of Data statements is a machine code character 
set move routine which moves the character set from ROM to 
RAM fast. Avoids the‘Please wait..syndrome! 

The next block of Data statements are the shapes used. The 
program loops between 140 and 360 and the bug shapes are 
moved in the MV loop (260 to 350). 

DL=display list, to alter screen lines (see lines 560,570). 
LL=calculate wall number per level. 

R=random number (0-255). 

Peeking location 53770 is faster than R=INT(RND(0)*X). 

This program only just runs in 16K. Pressing ‘BREAK’ and 
; re-running a few times may get it into trouble and you will be 
| left with a blank screen! Much better to hit ‘System reset’ to 
I restart. The introductory tune is handled at lines 710 to 730. 
[Data values are pitch, then a value times 35 for duration. 


BY BRIAN HILLS 




IEN X=0:Y=0 

250 LOCATE BX(O),BY(O),As IF A=35 THEN GO| 
SUB 1020:GOTO 100 
260 FOR MV=1 TO 4 

|270 LOCATE BX(MV)+1,BY(MV),U:IF U=164 OR| 
U=35 THEN GOTO 290 

[280 IF BX(MVKBX(0) THEN BX (MV) =BX (MV) + 1| 

:POSITION BX(MV)—1,BY(MV):2 #6; 

|290 LOCATE BX(MV)-1,BY(MV),U:IF U=164 OR| 
U=35 THEN GOTO 310 

|300 IF BX(MV)>BX(0) THEN BX(MV)=BX(MV)-11 
:POSITION BX(MV)+1,BY(MV):7 #6?" 

|310 LOCATE BX(MV),BY(MV)+1,U:IF U=164 OR| 
U=35 THEN GOTO 330 

[320 IF BY(MV)<BY(0) THEN BY(MV)=BY(MV)+11 
:POSITION BX(MV),BY(MV)—1:? #65" 

|330 LOCATE BX(MV),BY(MV)-1,U:IF U=164 ORj 
U=35 THEN GOTO 350 

[340 IF BY(MV)>BY(0) THEN BY(MV)=BY(MV)—1 * 

:POSITION BX(MV),BY(MV)+1:7 #6;" 

|350 NEXT MV 
360 GOTO 140 

370 FOR C=14 TO 0 STEP -1:SOUND 0,20+C,l| 

0,C:NEXT C:G=G+1 

[380 POSITION 0,0:7 #6;"SCORE"5G;" RESCUEj 
ftp V 9 L jL 

I 390 SOUND 0,0,0,0:RETURN 
400 ME=PEEK(106):GR=ME-4 

410 POKE 106,GR:GRAPHICS 1+16:CHR=GR*256| 
420 FOR X=0 TO 39:READ A:POKE 1536+X.A:N| 
EXT X:Z=USR(1536,CHR,4> 

430 DATA 104,104,133,207,104,133,206,1041 
440 DATA 104,133,212,169,0,133,204,169 
450 DATA 224,133,205,162,1,160,0,177 
460 DATA 204,145,206,200,208,249,230,205| 
470 DATA 230,207,232,228,212,208,240,96 
480 CH=16:FOR T=1 TO 2:CH=CH+1*8 
490 FOR AD=CHR+CH TO CHR+7+CH: READ DA:PO ~<i 
KE AD,DA:NEXT AD:NEXT T 

500 FOR AD=CHR+432 TO CHR+7+432:READ DA: j 
POKE AD,DA:NEXT AD 

510 DATA 60,126,231,255,189,195,126,60 
520 DATA 126,129,129,129,129,129,129,126| 
530 DATA 60,36,36,60,24,126,24,36 
540 POKE 756,GR 

550 SETCOLOR 1,0,0:SETCOLOR 2,11,6:SETCO \ 
LOR 4,11,6 

560 DL=PEEK(560)+256*PEEK(561) 

570 POKE DL+6,7:POKE DL+9,2 
580 POSITION 5,0:7 #6;"***********" 

590 POSITION 5,2:7 #65 M *********** M 
600 POSITION 5,1:7 #65"B U G O U T" 8 Jl 

610 FOR X=0 TO 10:FOR B=0 TO 14 STEP 2 iM 


90 GOSUB 400 

100 BX(0)=1:BY(0)=11 

110 BX(1)=12:BY(1)=2:BX(2)=14:BY(2)=2 

120 BX(3)=12:BY(3)=21:BX(4)=14:BY(4)=21 

130 SETCOLOR 2,L,8:X=0:Y=0 

140 POSITION BX(0),BY(0):7 #65" ":POKE 7 

7,0 

150 S=STICK(0):X=(S=5 OR S=6 OR S=7)-(S= 
9 OR S=10 OR S=11):Y=(S=5 OR S=9 OR S=13 
)—(S=6 OR S=10 OR S=14) 

160 LOCATE BX(0)+X,BY(0)+Y,A:IF A=164 TH 
EN X=0:Y=0 

170 IF A=246 THEN M=M+1 

180 IF A=246 THEN GOSUB 370 

190 IF M=E THEN SOUND 0,30,10,8:FOR D=0 

TO 10:NEXT D:SOUND 0,0,0,0:POSITION 19,1 

1:7 #65"/":M=100 

200 BX(0)=BX(0)+X:BY(0)=BY(0)+Y 
210 POSITION BX(0),BY(0):? #6;"v" 

220 FOR MM=1 TO 4:POSITION BX(MM),BY(MM) 
:? #65 M # M :NEXT MM 

230 IF A=47 THEN POSITION BX(0),BY(0):7 
#65" ":GOTO 1230 

240 LOCATE BX(0)+X,BY(0)+Y,A:IF A=164 TH 









1010 GOTO 870 

1020 POSITION 6,23:? #6; "GOTCHA" 

1030 FOR C=0 TO 14 STEP 2:FOR D=0 TO 40: 
SOUND 0,D,2,8:SETCOLOR 0,11,C:NEXT D:NEX 
T C:SOUND 0,0,0,0 
11040 FOR D=0 TO 200:NEXT D 
1050 G=G—10 
1060 IF G<0 THEN G=0 
1070 M=0 

1080 GRAPHICS 1+16:POKE 756,GR 

1090 SETCOLOR 0,11,12:SETCOLOR 1,0,14:SE 

TCOLOR 2,L,8:SETCOLOR 4,0,0 

1100 POSITION 0,0:? #6;"SCORE";G;" RESCU 


SETCOLOR 0,B,B:FOR D=0 TO 10:NEXT D 
NEXT B:NEXT X 

POSITION 15,4:? #6;" STARRING M 
FOR D=0 TO 500:NEXT D 
POSITION 2,7:? #6;”# # THE BUGS # # 
POSITION 1,10:? #6;"T.HITCH":? #6 
POSITION 1,13:? #6;"MAL FUNCTION":? 


690 POSITION 1,16:? #6 
":? #6 

700 POSITION 1,19:? #6 
710 FOR P=1 TO 25:READ DA:SOUND 0,DA,10, 
8:READ DA:FOR D=0 TO DA*35:NEXT D:SOUND 
0,0,0,0:NEXT P:SOUND 0,0,0,0 
720 DATA 60,1,64,1,60,2,80,2,76,2,60,1,6 
4,1,60,2,53,2,80,2,60,1,64,1,60,2,80,2 
730 DATA 91,1,80,1,76,4,80,1,91,1,102,2, 
108,1,121,1,80,2,162,2,121,4 
740 FOR X=0 TO 20 
750 FOR D=0 TO 30:NEXT D 
760 POSITION 13,4:? #6;" 


SCREAMING FOULUP 


1110 POSITION 0, 1 

1120 FOR B=0 TO 19:? #6;:NEXT B 
1130 FOR B=1 TO 22:? #6;:NEXT B 
1140 FOR B=1 TO 22:POSITION 19,B:? #6;"* 
":NEXT B 

1150 FOR B=1 TO 19:POSITION B,23:? #6;"* 
" 5 :NEXT B 
1160 FOR V=3 TO 21 
!1170 FOR W=2 TO 17 
1180 R=PEEK(53770) 

1190 IF R<LL THEN POSITION W,V:? #6;"*"; 
1200 NEXT W:NEXT V 

1210 FOR N=0 TO 40:POSITION INT(RND(0)*1 
6+2),INT(RND(0)*19+3):? #6;"v”:NEXT N 
1220 RETURN 

1230 FOR D=0 TO 20:NEXT D:FOR P=14 TO 0 

STEP -1:SOUND 0,20,0,P:POSITION 19,11:? 

#6; NEXT P:SOUND 0,0,0,0 

1240 FOR D=0 TO 150:NEXT D 

1250 FOR Z=1 TO 56:SETCOLOR 2,Z,Z:SQUND 


770 FOR D=0 TO 20:NEXT D 
780 POSITION 13,4:? #6;" 


I 790 IF PEEK (53279) 07 THEN 820 
1800 NEXT X 
t 810 GOTO 740 

il 820 MY=PEEK (106) —4: POKE 106, MY 
j 830 GRAPHICS 2+16 

1840 DIM BX(4),BY(4):L=1:M=0:LL=150:E=6 
1850 ? #6;" SELECT LEVEL":? #6:? #6;“ 

I (’SELECT’ KEY)" 

i860 FOR D=0 TO 200:NEXT D 

1870 IF PEEK(53279)=5 THEN L=L+l:FOR D=0 

I TO 20:NEXT D 

1880 IF L=10 THEN L=1 

1890 POSITION 6,5:? #6;"LEVEL ";L:SETCOLO 
I R 0, L, 8 

1900 IF PEEK(53279)=6 THEN 1080 
1910 POSITION 4,10:? *6;"press start" 

1920 IF L=1 THEN LL=140:E=6 
930 IF L=2 THEN LL=130:E=8 
1940 IF L=3 THEN LL=120:E=10 
950 IF L=4 THEN LL=110:E=12 
960 IF L=5 THEN LL=100:E=14 
970 IF L=6 THEN LL=90:E=16 
980 IF L=7 THEN LL=80:E=18 
|990 IF L=8 THEN LL=70:E=20 
1000 IF L=9 THEN LL=60:E=22 


1320 POSITION 3,10:? #6;"YOU SCORE: 
1330 FOR "P=0 TO 14 STEP 2:FOR N=1 
FOR D=0 TO 8:NEXT D:SETCOLOR 0,N,P 


1340 SOUND 0,100/N,P,8:NEXT N:NEXT 
ND 0,0,0,0 

1350 FOR D=0 TO 1000:NEXT D 
1360 POKE 106,MY:RUN 








RUNS ON ANY SPECTRUM 
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PHARAOH’S TOMB 



HINTS ON HOWTO PLAY: 

1. Jump over snakes and arrows 

2. Reach the key before the bonus reaches zero 

3. Jump on and off the moving marsh grass at the top of the screen 

4. Do not go off the side of the screen 

5. You will lose a life if you run into an arrow or snake, if the bonus 
reaches zero, if you go off the side of the screen or if you fail to 
successfully jump on and off the moving marsh grass at the top of the 
screen 

All screens are possible to get through! 

CONTROL KEYS: 

USE 

“1” FOR UP 
“Q” FOR DOWN 
“q” FOR LEFT 
“0” FOR RIGHT 
“Z” TO JUMP LEFT 
“M” TO JUMP RIGHT 
THE SCREEN 

Your score, lives & bonus are displayed at the top of the screen. The 
number of keys you have collected is displayed at the bottom of the 
screen. _ 


Many centuries ago there lived a powerful 
Egyptian Pharaoh called Katuman. When he died, 
the people of Egypt built him a lavish tomb filled 
with chests overflowing with treasure and gold 
bricks. But the most precious item within 
Katuman’s tomb was a golden idol made in the 
shape of the Pharaoh’s head. 

To protect the tomb from grave robbers, it was 
built in the heart of a mysterious jungle and the 
keys which opened the tomb were hidden in 14 
marshland swamps. 

Many decades later, an adventurer set out 
on a quest for the lost 14 
keys—this is his story. . . . 

The keys to the tomb can 
be found at the top of each 
screen. You must help the 
explorer reach the top of 
each screen by climbing 
vines and jumping over the 
deadly snakes which 
inhabit the swamp. 
There are also 
unfriendly natives 
in the swamp who 
try to stop your 
quest by firing 
poisoned arrows 
at you. 

Each time you 
collect one of the 
keys, the game 
gets harder. If you 
collect all 14 keys, 
you reach the tomb. 
Then you’ll be asked 
if you want to try 
again—this time the 
marshland mazes 
will be more difficult to 
conquer. 


A 


By ANDREW DUFFY 



MAIN VARIABLES: 

a = Vertical position of player 

b = Horizontal position of player 

bb = Value of bonus at beginning of screen 

bo = Value of bonus left 

f = Common loop variable 

k = Number of keys collected 

le = Difficulty level 

li = Number of lives left 

hs = High score 

s = Score 

st = Screen number 

m = Variable to determine which way player is moving 
LIST OF STRINGS: 

a$ = Message which computer displays on screen and also string for moving 
marsh grass (ie, has more than one function) 
c$ = Arrow string 

d$ = Snake string 

h$ = Movement string (ie, h$(1)=RIGHT h$(2)=LEFT) 
k$ = Number of keys collected in visual form 

1$ = Number of lives left in visual form 

p$ = String which determines the snake graphics _ 
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PHARAOH S TOMB 



RETUP. 


7005 


RETUP 


rETUP 


i;d$« TO 
INK 5 : P“ 
C$( TO : 


1050 PRINT “INK 4;PT 20. 

00} ;PT 12:1;d$ ( TO 30) . 

3,1; c S i TO 30) ;PT 15,1; 

0 ) 

1055 IF cc=l THEN RETURN 
|1070 IF SCREENS (3rl,b) = !! " THEr 
GO TO 3500 
11050 IF a >5 THEN IF SCREENS ia.i 
) < : THEN GO TO 5500 

11090 IF SCREENS (a+l,b)=" THEr 
GO TO 5500 

1100 IF SCREENS (a,b + 1)<> " " PNE 
INKEYS = ,! 0'' THEN GO TO 5500 
1110 IF SCREENS (a * h-1) < > n " PNE 
INKEYS = “ 9THEN GO TO 5500 
1120 IF INKEY$ = :, 0 ,s THEN LET m = 1 
PRINT PT a,b;" LET b = b +1: PR| 

INT PT a :b;h S ( m ) : BEEP .©5.21-a 
BEEP ,05 - (21-a) 

1130 IF IN KEY S = “ 9 :: THEN PRINT PTl 
a b ! ‘ !: : LET m =2 : LET b = b-l: PR [ 
INT PT a , bh s tm) : BEEP , 05.21 -a : 
BEEP ,©5,- (21 -3) 

1135 IF INKEYS = M 1PND PTTR Ca-i 
b :* =4- THEN PRINT PT a s b ; 58 “ : LET | 
3 =a -4.: BEEP ,05,5: BEEP ,05,9 
1140 IF IN KEY $ = ” q PND PTTR (a+2 
, b) =4 THEN PRINT PT a , b ; !: : LET | 

S =a +4: BEEP ,05,9: BEEP ,05,5 
1150 IF INKEYS = M Z s ‘ THEN IF bol 
ITHEN LET d=2: GO TO 9200 
1170 IF INKEYS = “!ft'* THEN IF b<>30| 
THEN LET d=l: GO TO 9200 
1175 NEXT f 

125© LET cc=0; GO TO 1020 
I 200© LET stsst +1: PRINT PT a 
! : LET £=S+bO: GO SUB 9500: 

50 STEP 5: BEEP .05 
- f : BEEP ,05,f+1: NEXT f 
2,0: LET fc= k +1: FOR f =1 
NEXT f: IF fc =14- THEN GO 


f=0 TO 
IEEP ,05, 

BEEP , 

| TO 500: 

“0 9000 

2001 IF 

2002 
10,0: 

3000 
0 

3001 
4 

4000 LET a $ = “YOU PRE ON SCREEN :: 

4001 CL5 : PRINT PT 10,4;: FOR f 

=1 TO LEN aS: PRINT a $ ( f ) ; : BEEP 

.05,RND±50: NEXT f : PRINT St: F 
OR f=l TO 500: NEXT f: RETURN 

4900 IF SCREENS (a+l,b) 0 “ :! THE 
N LET s=S+5 

4901 IF SCREENS Ca+1,b+1) <>“ “ T 
HEN LET s=S+5 


l€< >14 THEN LET l€ = te + i 
FOR f =1 TO 22: POKE USR 325i 
NEXT f: GO TO 1000 
DPTP ©,14,I©,234,169,41,55. 

DPTP 0,0,56,41,169,234,10,1 


4902 IF 
HEN LET 
4905 
7000 


SCREENS 
S =S +5 


’003 


RETURN 

LET 

: LET 

>-r 

dS = ,; t 

: RETUR 

LET 

c S = ‘ ! Jf 

T 

: LET 

j -+ 

d S = ,s 

: RETUR 

LET 

c S = “ 

>-f n 

T 

: LET 

>-4 

d S = :! 

T 

>-* 

: RETUR. 

LET 

T 

c S = !! 

>-+ s 1 

T 

: LET 

j—r 

d S = ,; 

T ,8 

>-4 

: RETUR 


TT 
































RET UR 


RETUP 


i_ t T- r 

'n TT ^ ff TT^ 

C5000 r:[ r 

^ .• a 2.; 1 •• p Hpp-ipL : f T 5 , g 

SCOPE • INK 2 r PT 

12,3 : •• £g|4._ PAPER 5 : 

"001 pOj I •- cr ^5 ~ HN V K Py 

MI bKs^: 

LE1 »*»: LET F.i-«T 


continued from page 9 


FOR 

NEX 


8002 GO TO 1000 

8500 IF SCREEN* ia+l,b) =“ 88 THEN 
FOR f =3 TO 21: PRINT AT f , b; h $ ( 

lift): BEEP .05.21-f: PRINT RT f,b; 

8 : : NEXT f: LET 5=21 

8501 PRINT RT 3,b; INK 5.; “f “ : BE 
EP .-5:7: BEEP .5,5: BEEP .-5,4: B 
EEP .5,5: BEEP .5,4: BEEP .5,2: 
BEEP 1,0 

8502 LET t i = l i -1: IF l i =8 
PINT RT 18,9;“ GAME OUER 
> h £ THEN LET hs=£ 

8583 FOR f =1 TO 588: NEXT 
? =1 TO 22: POKE U5R 3288,8: 

T f: IF Li=8 THEN GO TO 8888 

8584 GO TO 1888 

9088 CL5 : LET .,a * = 88 WELL DONEIYOU 
HRUE FOUND THE PHRRROH '' 5 TOM 
B RND THE GOLD IDOL 88 : PRINT RT 2 
,8: FOR f =1 TO LEN 5$: PRINT INK 
INT (RND*3) +2;a $C f) ; : BEEP .85, 
RND*50: NEXT f: FOR f=18 TO 28 5 
TER 2: PRINT INK 2; RT f ,1; "e* 
3 :: ;RT f + l.li “li*i! ; RT r ,25; 

—L’; HT F41,25; “010 ii*[j“: next f 

9881 FOR i* =9 TO 19 STEP 2: PRINT 
INK 2; RT f ,3; “.c-l 8 ; AT f,27;“^ 8i ; 

RT f 41, 3; :i \M” ; RT f 4l, 27; “li*ii“ : NE 
XT f 

9882 LET P 0 = 15 : FOR f=14 TO 21: 
FOR Q=P0 TO 31-PO STEP 2: PRINT 
INK 6; RT f,g;“O i8 : 

0=p 0 -1: NEXT f 


9083 PRINT INK 4 ; RT 11,8 ; ' Wmmww \ 
. qt 7 , 0 ; • 8 


H’Sfl"; R 


BEEP 

BEEP 


9884 PRINT INK S;AT 18,15; 

T 9 : 15; :8 £?Sr 

19086 BEEP .5,8: BEEP .5,5: 

.5:7: BEEP .5,9: BEEP .5,7: 

1,4 

9887 FOR f=l TO 2888: NEXT 
5 : PRINT RT 18,8; FLRSH l; 88 -NOW 

SEE IF YOU CRN DO IT AGAIN- 88 : F 
! OR f=1 TO 508: NEXT f 
19008 IF bb< >2800 THEN LET bb=bb- 
188 

19089 CLS : LET K=8: LET l€=2: GO 
TO 1880 

9208 IF SCREEN* (a 4i,b)=“ 88 THEN 
GO TO 6588 

9281 LET c c = 1: PRINT RT a , b; “ 88 
LET b = b4 «d=l) -(d=2) : LET a =8-1: 
LET P =8: IF RTTR (a,b) =4 THEN L 
|ET P =1 : LtT y=3 : LE I X = b 
■ 9282 IF RTTR (a,b)=6 THEN GO TO 
12880 

L'83 GO SUB 1820: GO . SUB 4988: P 
; : BEEP .85,8: BEE 
: b4 (d=l) - C d =2) : LE 
IF a>6 THEN IF SCREEN* 

88 THEN GO TO S588 
19284 PRINT RT a 
I 5,18: IF p: 

y , x; “U“ 

19206 LET C C =8: GO TO 1828 
9588 PRINT RT 8,8; “SCORE : 88 ; s ; “ 
l$( TO li);RT 0,26;“BONUS:“ 

19501 LET c = C-1: IF c=8 THEN LET 
C =10 : LizT bO =bO -188 

19502 PRINT RT 1,26; bo; 8 8 8 8 : IF b 

0=0 THEN GO TO 6508 

9583 RETURN 


RINT RT a,b; “ 

P .85,5: LET b= 
| T a =8 41 : 

(a , b) < > 8 


RT a , b; h * (lift) : BEEP .8 
=1 THEN PRINT INK 4;RT 





























OUTLAW 


10 GQSUB 500 

15 GRAPHICS 4:POKE 710,209:POKE 712,209 
17 GOSUB 800 
20 GOSUB 1000 
30 GOSUB 2000 

500 ? "C ESC CTRL CLEARI":POKE 710,0 
506 OPEN #3,4,0, M K:" 

510 GRAPHICS 1+16:POKE 712,50 

520 POSITION 0,1:? #6;" OUTLAW" 

530 POSITION 0,3:? #6;" by Shaun Elwell 

11 

54© POSITION 0,5:? #6;" INSTRUCTIONS? 

II 


550 POSITION 0,6:? #6;" (Y or N) " 

560 GET #3,KB:IF KB<>89 THEN RETURN 


570 

? 

#6; " 

CESC CTRL CLEAR!" 

580 

9 

#6 


590 

7 

#6; " 

the green player" 

600 

7 

#65 " 

is the outlaw and" 

610 

7 

#65 " 

is out to kill !f" 

620 

7 

#65 " 

the red player is" 

630 

7 

#65 " 

the sheriff and" 

640 

7 

#65 " 

must defend his" 

650 

7 

#65 " 

people against " 

660 

7 

#65 ” 

the evil outlaw!!" 

670 

7 

#65 " 

the first person" 

680 

7 

#6; " 

to hit the other" 

690 

7 

#65 " 

10 times wins." 


700 POSITION 0,19:? #6;" PRESS START" 
710 IF PEEK (53279) 06 TH£N 710 
720 RETURN 

800 COLOR 1:PLOT 34,1:DRAWT0 34,6:DRAWT0 
37,6:PLOT 37,5 

810 PLOT 38,5:DRAWTO 38,2:PLOT 35,2:PLOT 
39,3 

820 PLOT 33,5:PLOT 33,3:PLOT 35,2:PLOT 3 
5,4 

830 PLOT 35,7:PLOT 35,8:PLOT 36,7:PLOT 3 

6,8 

840 PLOT 40,19:DRAWTO 40,23:PLOT 41,20:P 
LOT 41,22:PLOT 39,21 

850 PLOT 24,28:DRAWTO 24,30:DRAWTO 26,30 
:PLOT 26,32 

860 DRAWTO 26,27:PLOT 27,29:PLOT 28,29:D 
RAWTO 28,27 

870 PLOT 50,29:DRAWTO 50,32:PLOT 49,30:P 
LOT 51,31 

875 PLOT 50,2:DRAWTO 50,8:PLOT 49,4:PLOT 
51,3:PLOT 51,5:PLOT 49,6 
880 RETURN 
1000 A=PEEK(106)—8 
1010 POKE 54279,A 
1020 PMBASE=256*A 

1022 FOR I=PMBASE+384 TO PMBASE+512 
1024 POKE 1,0 
1026 NEXT I 

1030 FOR I=PMBASE+512 TO PMBASE+640 
1040 POKE 1,0 
1050 NEXT I 

1060 FOR I=PMBASE+640 TO PMBASE+768 
1070 POKE 1,0 
1080 NEXT I 

1082 FOR I=PMBASE+768 TO PMBASE+896:POKE 
1,0:NEXT I 

1090 X=50:Y=48:ZAP=X+14:SH0T=1:SC=0:BL=0 
1100 X1=179:Y1=48:SC1=0:ZAP1=X1+5:SH0T1= 
1:BL1=0 

1110 POKE 704,216:POKE 705,52:POKE 559,4 
6:POKE 53277,3 


The sun was high above the small township of Atariville, 
California, when the gunfighter rode in on his jet black horse. 
He dismounted in front of the strangely silent saloon and 
turned to look down the deserted main street, deserted except 
for the lone figure of the sheriff—the only man brave enough to 
face the feared gunfighter. 

The man in black fingered the butt of his silver Navy Colt 
which rested comfortably in the holster at his hip and began to 
walk toward the waiting sheriff. Somewhere a dog barked. The 
gunfighter shifted his cigar from one side of his mouth to 
another and prepared to send another victim to Boot Hill. 


COMMENTS 

Type 

the 

following in inverse: 

Line 

540 

7 INSTRUCTIONS? 7 


550 

7 (Y or N) 7 


590 

7 green 7 


620 

7 red 7 


670 

7 the first person 7 


680 

7 to hit the other 7 


690 

7 10 times 7 


700 

7 PRESS START 7 


2760 

7 PRESS START 7 




! 



f — 


ymmn 








12 












































RUNS ON AN ATARI 400 IN 16K 


BY SHAUN ELWELL 




KILLER 
W GREW 

$255 


THE 

RlNGO 

KID 

$200 


LIGHTNING 


This game is for two players. Instead of only one life, however, 

you have ten! The idea of the game is to shoot your opponent ten 
times. A score is given at the end of the game—HITS divided by 
BULLETS USED *1000. 

The players are drawn using the Atari’s special player/missile 
graphics, and the author has used a machine code routine to 
speed up vertical movement of the program and is accessed 
during play by a USR command. 

For anyone who intends to use this routine in their own 
programs, note that the player/missile set up lines must be typed 
in the order shown. 


SID 


$150 


DEAD OR ALIVE 


1120 POKE 53248,X:POKE 53249,X1:POKE 532 

50,0 

1130 FOR 1=0 TO 8 
1140 READ B 

1150 POKE PMBASE+512+Y+I,B 
1160 NEXT I 

1170 DATA 12,30,12,9,14,8,8,20,18 
1180 FOR 1=0 TO 8 
1190 READ B 

1200 POKE PMBASE+640+Y1+I,B 
1210 NEXT I 

1220 DATA 6,15,6,18,14,2,2,5,9 
1290 POKE 53256,1:POKE 53257,1 
1340 GOSUB 10000 
1350 GOSUB 10100 
1990 RETURN 

2000 S=STICK(0):SOUND 0,0,0,0:SOUND 1,0, 
0,0 

2010 S1=STICK <1) 

2020 IF S=14 AND Y>=6 THEN B=USR(UP,PMBA 
SE+511+Y):Y=Y—1 

2030 IF Sl=14 AND Yl>=6 THEN B=USR<UP,PM 
BASE+639+Y1):Y1=Y1-1 

2060 IF S=13 AND Y<=110 THEN B=USR(DOWN, 
PMBASE+511+Y):Y=Y+1 

2070 IF Sl=13 AND Yl<=110 THEN B=USR(DOW 
N,PMBASE+639+Y1):Y1=Y1+1 
2090 POKE PMBASE+384+YM,0 
2095 POKE PMBASE+384+YM1,0 
2100 IF SHOT=l THEN YM=Y+3:ZAP=X+14:POKE 
53252,ZAP 

2105 IF SHOT1=1 THEN YMl=Yl+3:ZAP1=X1+5: 

POKE 53253,ZAPI 

2130 POKE PMBASE+384+YM,3 

2135 POKE PMBASE+384+YM1,12 

2160 IF STRIG(0)=0 THEN SHOT=0 

2165 IF STRIG(1)=0 THEN SHOT1=0 

2170 IF ZAP>200 THEN ZAP=X+14:SHOT=l:POK 

E 53252,ZAP:BL=BL+1 

2175 IF ZAP1C12 THEN ZAP1=X1+5:SHOTl=l:P 
OKE 53253,ZAP1:BL1=BL1+1 

2180 IF SHOT=0 THEN ZAP=ZAP+18:POKE 5325 
2,ZAP:SOUND 0,80,8,10 

2185 IF SHOT1=0 THEN ZAP1=ZAP1—18:POKE 5 
3253,ZAP1:SOUND 1,80,8,10 
2190 IF PEEK(53256)=3 THEN POKE 53252,X+ 
14:POKE 53278,0:BL=BL+1:SHOT=1:GOSUB 25© 
0 

2195 IF PEEK(53257)=3 THEN POKE 53253,XI 
+5:POKE 53278,0:BL1=BL1+1:SHOT1=1:GOSUB 
3000 

2197 IF PEEK(53248)=1 THEN POKE 53252,X+ 
14:POKE 53278,0:SHOT=1:BL=BL+1 

2198 IF PEEK(53249)=1 THEN POKE 53253,XI 
+5:POKE 53278,0:SHOT1=1:BL1=BL1+1 

2200 GOTO 2000 

2500 ? :? M OUTLAW SHERIF 

F" 

2505 POKE 755,1 
2510 SC=SC+1 

2520 ? :? " "SSCi" 

"5 SCI 

2530 IF SCO10 THEN RETURN 

2550 POKE 53248,0:POKE 53249,0:POKE 5325 

2,0:POKE 53253,0 

2560 GOSUB 5000 

2630 GRAPHICS 1+16 

2640 POSITION 0,2:? #6;" THE outlaw WON 
M ;SC;";SCI 













































OUTLAW 


2650 POSITION 0,4:7 #6;" SCORES:-" 

2660 POSITION 0,6:7 #6;"OUTLAW SHE 

RIFF" 

2662 IF SC=0 THEN SCR=0:GOTO 2665 

2663 SCR=INT(1000*(SC/BL)) 

2665 IF, SC 1=0 THEN SCR 1=0: GOTO 2670 

2666 SCR1=INT(1000*(SCI/BL1)) 

2670 POSITION 0,7:7 #6;" ";SCR;" 

";scri 

2760 POSITION 0,13:7 #6;" PRESS START 


2770 IF PEEK(53279)06 THEN 2670 
2780 RESTORE :RUN 

3000 7 s 7 " OUTLAW SHERIF 

F" 

3005 POKE 755,1 

3010 SC1=SC1+1 

3020 7 :? " ";SC5" 

";sci 

3030 IF SC1O10 THEN RETURN 

3050 POKE 53248,0:POKE 53249,0:POKE 5325 

2,0:,POKE, 53253,0 

3060 GOSUB 5000 

3130 GRAPHICS 1+16 

3140 POSITION 0,2:7 #6;"THE sheriff WON 
"5 SCI 5"- H 5SC 
3145 GOTO 2650 

5000 GRAPHICS 0:POKE 710,209 
5010 FOR 1=1 TO 38:7 CHR*(19);:NEXT I 
5020 FOR 1=1 TO 38:7 CHR*(19);:NEXT I 
5040 POSITION 7,4:7 CHR*(160) 

5050 POSITION 6,5:FOR 1=1 TO 3:7 CHR*(16 
0)5:NEXT I:POSITION 25,5:7 CHR*(160) 

5060 POSITION 7,6:7 CHR*(160):POSITION 2 
4,6:FOR 1=1 TO 3:7 CHR*(160);:NEXT I 
5070 POSITION 7,7:7 CHR*(160):POSITION 2 
5,7:7 CHRSC160) 

5080 POSITION 7,8:7 CHR* (160):POSITION 2 
5,8:7 CHR*(160) 

5090 POSITION 25,9:7 CHRS(160):POSITION 
11,9:7 CHR*(9>;:7 CHR*(15) 

5100 POSITION 11,10:7 CHR*(160);:7 CHR*( 
160):POSITION 32,11:7 CHR*(160);:7 CHR*( 
160) 

5110 POSITION 11,11:7 CHR*(160);:7 CHR*( 
160) 

5120 POSITION 32,12:7 CHR*(160);:7 CHR*( 
160) 

5140 POSITION 4,13:7 CHR*(160) 

5150 POSITION 3,14:FOR 1=1 TO 3:7 CHR*(1 
60);:NEXT I 

5160 POSITION 4,15:7 CHR*(160) 

5170 POSITION 4,16:7 CHRS(160):POSITION 
27,16:7 CHR*(8);:7 CHR*(10) 

5180 POSITION 4,17:7 CHR*(160):POSITION 
27,17:7 CHR*(160);:7 CHR*(160) 

5185 7 "C12 SPACES 1 CCTRL Q3C9 CTRL R3CCT 
RL ED" 

5190 7 "C12 SPACES It SHIFTS BOOT HILLCSHI 
FT=3 " 


5200 7 " C 12 SPACESD CCTRL Z3C9 CTRL R3CCT 
RL CD" 

5220 FOR 1=1 TO 13:POSITION 1,21:7 CHR*( 
19);:NEXT I:FOR 1=25 TO 39:POSITION 1,21 
:? CHR*(19);:NEXT I 

5230 FOR 1=1 TO 13:POSITION 1,22:7 CHR*( 
19);:NEXT I:FOR 1=25 TO 39:POSITION 1,22 



:7 CHR*(19);:NEXT I 

5300 SOUND 0,122,10,10:SOUND 1,145,10,8: 
SOUND 2,122,10,8:FOR W=0 TO 120:NEXT W 
5310 SOUND 0,145,10,10:FOR W=0 TO 120:NE 
XT W 

5320 SOUND 0,109,10,10:SOUND 1,109,10,8: 
SOUND 2,92,10,8:FOR W=0 TO 240:NEXT W 
5330 SOUND 0,145,10,10:SOUND 1,145,10,8: 
SOUND 2,122,10,8:FOR W=0 TO 480:NEXT W 
5340 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2 
0 0 0 

5500*POSITION 20,11:7 CHR*(19) 

5510 POSITION 20,12:7 "!" 

5520 POSITION 19,13:7 CHR*(6);CHR*(13);C 
HR*(7) 

5530 POSITION 19,14:7 CHR*(13);CHR*(13); 
CHR*(13) 

5540 POSITION 0,22:7 
5550 FOR U=0 TO 500:NEXT U 
5560 GRAPHICS 1+16 
5570 RETURN 

10000 DIM UPCODE*(21):UP=ADR(UPCODE*) 
10010 FOR I=UP TO UP+20 
10020 READ B:POKE I,B 
10030 NEXT I:RETURN 

10040 DATA 104,104,133,204,104,133,203 
10050 DATA 160,1,177,203,136,145,203 
10060 DATA 200,200,192,11,208,245,96 
10100 DIM DOWNCODE*(21):DOWN=ADR(DOWNCOD 
E*) 

10110 FOR I=DOWN TO DOWN+20 
10120 READ B:POKE I,B 
10130 NEXT I:RETURN 

10140 DATA 104,104,133,204,104,133,203 
10150 DATA 160,10,177,203,200,145,203 
10160 DATA 136,136,192,255,208,245,96 


Variables 


PMBASE 

= starting memory location of player missiles. 

X 

= horizontal position of player 0 

XI 

= horizontal position of player 1 

Y 

= vertical position of player 0 

Y1 

= vertical position of player 1 

ZAP 

= horizontal position of missile 0 

ZAP1 

= horizontal position of missile 1 

SC 

= number of hits for player 0 

SCI 

= number of hits for player 1 

BL 

= bullets fired for player 0 

BL1 

= bullets fired for player 1 

How it runs 


10-30 

: GOSUB instructions, playfield set up, and player/ 


missile set up. 

500-560 

Titles and ask for instructions. 

570-729 

Instructions. 

800-880 

Draw playfield. 

1000-1020 

Find top of memory and set up player/missile start. 

1022-1080 

Clear missiles and players. 

1130-1220 

Draw players. 

1340-1350 

Set up. M/C routine. 

2000-2200 

Sense joysticks and do movement. 

2090-2185 

Sense trigger and do firing. 

2190-2200 

Sense hit on players and cacti. 

2500-2530 

Increase score when player 1 is hit. 

2550-2780 

If player 0 has won then do scores. 

3000-3030 

If player 0 is hit then increase score. 

3050-3145 

If player 1 wins say so and GOSUB 2650 to do 


scores 

5000-5230 

Draw graveyard. 

5300-5340 

Play tune. 

5500-5550 

Draw new grave. 

10000-10160 

Data for M/C routine. 
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Mars. . . . # M 

They have been pulling the wool over our \ 

eyes for years. Hundreds of Martians have 
been living and working in secret on Earth for 
many years now, laying the plans for $e 
invasion to begin. 

Now that we've given you a warning, it's up to % 
you to do the decent thing and save the Earth. 

Not easy when you're faced with hordes of 
laser-spitting green aliens. But we're sure you'll do 
your best. * 
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continued from page 15 


f+3 , V:IFXD255THENP0KEV+16 , 

•*•16) 0R2 ■ POKEV+2 , X-256 .'SOTO500 
290 POKEV+16 , PEEK (V+16) AND253 POKEV+1 
3070508 

300 POKE2041:218 :POKEV+4B,2 MA=MA+1 GOTO 
500 

310 POKEV+21, PEEK ; V+21) AND253 • MA=-1 :0OTO 
580 

480 IFSHO80RRND < i> ), 17HEN58S 

402 P0KE54276,0 :P0KE54273 .-72 : P0KE54272,11 

69 '■ P0KE54277,79 :P0KE5427S , 129 

405 SH=-i : X=PEEK < V +2) -18 •. IFMA=2THENSH=i 

X=PEEKCV+2)+18 

1 406 IFPEEK<V +16)AND2THENX=X+256 
1407 IFX>255THENPOKEV +16.PEEK(V+16)0R4:P0 
KEV +4 X-256 : 3070410 

408 POKE V + 16 , PEEK (V + 16) AND251 : POKEV+4 X 
1410 POKEV+5 . PEEK (V +3) POKEV+41,3 -.POKEV+2 
1 PEEK(V +21)0R4 
508 IFPEEK <V+38 > AND17HEN1080 
585 IFSH=0THEN536 
518 X=PEEK <V+4)+SH*16 I FPEEK(V + 16)AND4TH 
| ENx=X+256 

>15 IFXC20ORXD328THENPOKEV+21,PEEK <V+21> 

| AND251 SH«0 : >3070530 

520 IFX>255THENPOKEV+16.PEEK < V +16)0R4:P0 
| KEV+4 , X-256 : >3070538 

525 POKE V + 16 , PEEK (V + 16) AND251 :P0KEV+4.,X - 
I“PEEK(V +30) 

538 IFRW>0THEN558 
535 IFRNDCl)<.95ORHA117HEN600 
548 RW=CR 

558 POKERW+CO2 :POKERW, 3 Pi=RW+INT (PND < 1' 
> *3-1; 


fTf IFRl< 1 904ORR1(; 1943THENRW=8!3070680 
p vKERl+CO2 ■ IFRl CRWTHENPOKERi,5 : 3070 

5s5 IFR1>RWTHENP0KERi .4 :30Ta^7«: 

[578 POKER1,3 • 

575 RW=R1 

ff? IFPSOBORKO13THEN650 
I bbc P0KE54276,8 : P0KE54273.57 : P0KE54272 ■’ 
)2 : P0KE54277.7 3 ■ R0 | KE t ’4 r ’' 7 - -t "’P " tw 1 - -■ + 

[ °°+ - : '=PEEK <V> +24 : V-PEEK CV+1) +18 IFPEEK >'» 
+16 :> AND1THENX=X +256 ' ’' 

610 PS=i:IFDITHENPS--1:X=X-43 
*15 POKEV+7V : I FX0255 THENPOKEV +6 . X-256 • P 
,'!+£.y +16.. PEEK< V +16) OR0 :3070625 

+6 * : POKEV+16PEEK < V+16) AND247 
UV+21)0R8 42 ' 8 POKE2043 > 215 POKEV+21,PEE 
i5B IFPS=0THEN675 

| S 5+167anI3{hENX=X+I^ :V “ PEEK<V+?>;IFPEEK 

I l&i ^|!| R £??K ENP0KEv *«•«*< > 

J s* 5 . THENPOKEV ! +6 , X-256 : POKEV+16 , PE 

| ** ’• v +1 d..> 0R8 •• 3070675 

’ :f P^EV+6 , X : POKEV+16 , PEEK < V + 16) AND247 
IFPEEK(V+30)AND27HEN677 
Ib GOT0698 

II* : |g|C+10 :MA=4 :POKEV+21,PEEK <V+21) AND 

638 _ P0KE54276,0 P0KE54273,34:P0KE54272 

- H0i*.E54277,74 . P0KE54276,129 
. 55 P0KE54298,8 

|690 307055 

1086 POKE2048,218: SH=3 : POKEV +21 . PEE- c +5 
* £AND251:P0KE54276,8 P0KE54277,149 
1-1085 P0KE54273 ■ 3 ; POKERS’ 7 ’ •,=-=- '■ pr\Crr 
129 FORI = 1TO2008 NEXT '" ' 

- -- a 4 I=L 1-1 '■ I=PEEK . V + 30 POKEV+21 PEEK 1 
V +21.) HND254 : POKEV, 20 : POKEV +1.93 

11012 POKEV+16,PEEK<V+16)AND254:DI=8 
110-■ IFLI;>8THENP0KE2848,16 > POKEV+2') PEFK 
> Y+2D0R1 : 1 “PEEK<V+30) '307055 

54273,0 :P0KE54272,0 '■ P0KE54237.0 
I 5-4^36,0 

i Pf§£ P » KEV +24 •' 20 ' P0KEV *21,0 PR I NT "USHARD 

11025 PR IN T "HMMBVOU SCORED”: SC 
l 1 ||® T PPINT '’WIHE MARTIANS HILL OVER RUN 

11035 PRINT"HBWANOTHER SAME’" 

l 840 02IFA,= ” v ”THENPOKEV+24 ,23 :PRINT 

I ki • ‘j\.> T 91t> 

11645 IFft*O"N"THEN1040 
11050 POKEV +22,PEEK <V+22)AND239 
11060 END 

I 1 ® 00 ® ?ATA3 •' 192 ,6,0,64,0,1,64,8,1.30,0,3 
J; ; 4 i ® > , 8w>, 64,5,35, 80 ,5,85,30,1,35,64 

I®1 ®' 252 ' ® > ® ■ 136 ,0,2,10,0, 

| w , <-■,1*3,32,0,02,22,0, 8,32,0,8.32,0,8 
























continued from page 17 





MARTIAN INVASION 


[>ATA32, | | r ^ 6 0 d 20' 9,0,21 , 
pa 1*5 DAT Ae0 ,0 ;c or s 35,35,0 

?le 245,34,0 • s5 i S “;r is 0,15,132 , 

I 18020 0^32^32,0 ■ 128 l 8 q 

^' i2 ' 8 ' 0 ' 32 ' 3 ; 6 ; 

I :.liTse" 

q 3 ,8 ,b / o . 0^ ^ • r* 4^5 ,13d 3 - 

4 X>iriT ft© .. > '- s z " ‘ •’ a' p* 0.0 • 0 4 • 

! ife I j ATA 0,6 ' p ’ a ’ qi^ S ,8 32.0,0' 

I .1.0,0,08' ? ■ ® •■ ; i 7B 0,3,239 , 
10065 A2,102 , | • |' J 0g ; g., a 205 

IB0. 168.0,0, io 5 '}■ :, 6 04 . i? , 1, le 
18070 I>ATA4,0 ,| 4 '**£ C g" e , 0,0,0 • 6 

»«? 3£ U, *< »44 

18080 DATA2,102 . | • | •; * 0 |, 0,1,205 
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RUNS ON A 48K SPECTRUM 
BY ANDREW HENDERSON 


CRICKET 



If you haven't managed to unglue yourself from the Spectrum for the past 
few months, then I've got some news for you — it's summer. 
Yes, I know it's raining — but the ram's warmer isn't it. 


Tes, I Know IT S raining - BUT ims rum » . . . 

In keeping with these damp and dark few months, we've dusted down 
whites ana oiled our bats in preparation for the age old British ritual of 

cummer rrirltet. 


summer cricket. 
The game allows you to play either the 
batsman or the bowler. 
If you select to be the bowler, you must 
calculate the angle and spin of the ball 
before you bowl it. If you get it wrong, the 
batsman will knock you for six. 
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In Dodge City, you play the partpfa b / 

cowardly sheriff who has been sent by * *■ 

the US government to the roughest, /) 

toughest, meanest town in the whole 
mid-west. v. •;] 

The city is riddled with bandits, horsf ....a;^ 
thieves and bank robbers and not a day 

g oes by without the bank or some shop 
eing held up by gun wielding cowboys. You 
have to stop the robbers, but they are armed to 
the teeth and you will have to tread carefully, 
unless you want blood splattered over your sniny 
new badge. 

The townspeople will give you $100 for every bandit 
you kill, but will deduct $500 from your salary for every 
successful robbery. 

Once you have earned $5,000, you will be able to 
afford to buy a ride on a stage coacn back to New York. 

10SHERIFF«1 9 :SCORE*©:LIVES*3 
20MODE1 

30PROCINSTRIJCTI OHS 
49PR0CCITV 

50PRINTTRB< 3, 19 CHR*C 224 >.;.CH 

R*< 226 > 

60PRINTTRB< 3, 20 >; CHR*< 223 >;CH 
R*<227>‘ 

70X*28 

80IFX~11THENPROCLOSE:X*28 
90PRI HTTRBC5,20 >;CHR*C232 >jCH 
R*<232 > 

100PRI NTTRB< 5, 14 >; CHR*< 232 >; CH 
232 > 

110PRJNTTRB< 3, 13 CHR*< 232 >;CH 

R*<232> 


210TIME*S| 
220PRIHTTl| 
230PRIHTT1 
240X=X~1 I 
250GOTO801 
260DEFPROO 
270P0SIT101 
2301FPOSI Tj 











DODGE CITY 



29QPRI NT TREK POSITI ON fx > ;CHR*< 2 
28 >;CHR*<230> 

300PRINTTRBCPOSITION,X+1>;CHR*i 
< 229 >; CHR*< 231 > 

3108OUND0 ,--15,150,2 
320SHOT S3 RND< 5 > 

330IFSHOT>1THENGOTO490 
340SOUND1,1,157,5 
350GUN“POSIT X ON 
360PRINTTRB<GUN,X >" ■-'" 

370TIME*0:REPERT:UNTILTINE-3 
380PRINTTRBC GUN,X >" " 
390IFGUN-6RND X-14THENG0TO490 
400IFGUN-6RNDX*15THENGOTO490 
4101 FGUN“6RNDX=» 13THENGOTO430 
420IFGUN-6RNDX-20THENGOTO490 
430IFGUN-6RNDX“24THENGOTO430 
4401FGUN-6RNDX-25THENGOTO490 
450IFGUN*4 RND X“3HERIFF THEN 
PRQCYOUR_HIT s 

460IFGUN»4 RND X=SHERIFF+1 THE 
NPROCYOUR_HIT 
470GUN-GUN-1 
480IFGUN>3THENGOTO360 
490SOUNDO,- 15,150,2 
500ENDPROC 
S10DEFPROCMOVE..UP 
520PRINTTRB<3,SHERIFF >" " 

530PRI NTTRBC 3, SHER IFF+1 > " " 

548SHERIFF*3HERIFF-1 
550IFSHERIFF<12THENSHERIFF»12 
















> 





560PRINTTRBC 3, SHERI FF >; CHR*C 22 
4 >;CHR*< 226 > 

578PRI NTTRB':: 3, SHER IFF+ 1 >CHR*< 
225 >CHR*< 227 > 

580SOUND1,. 13200, 3 

59QENDPR0C 
600DEFPR0CM0VE... DOWN 
610PRINTTRBC3,SHERIFF >" " 

620PRI NTTRB':: 3, SHERIFF+1 >" " 

630SHERIFF=SHERIFF+1 
6401FSHERIFF >27THENSHERIFF=27 
650PRINTTRB':: 3, SHERIFF >; CHR*< 22 
4 >; CHR*< 226 > 

660PRI NTTRB':: 3, SHER IFF+1 >; CHR$C 
225 > .i CHR#< 227 > 

670SOUND1, -• 15, 200,3 
680ENDPROC 


S00IFBULLET*5RND SHERIFF*19THE 
NGOTO660 

810IFBULLET*5RND SHERIFF*20THE 
HGOT0860 

820IFBULLET“5AND SHERIFF-24THE 
NG0T0860 

830IFBULLET*5RND SHERIFF-25THE 
NGOTO860 

840BULLET“BULLET +1 

850IFBULLET<35THEHGOTO730 

860S0UND0/-IS,150,2 

870EHDPROC 

880DEFPR0CHIT 

890D*20O 

900SQUND1, 15, D, 1 
910P®D-5 

9201FD >0THENGOTO900 




930PRINTTRBC POSITI ON, X >" X M 
940PRINTTRBCPOSITIOH,X+1>" " 

950TI f1E»0 : REPERT : UNTI L.T I ME* 180 
960PRBNTTRBC POS ITI OH, X >“ " 

970SCQRE=8CORE+100 
980PRI NTTRBC 1,30 >" YOU HAVE * >" 

;SCORE 

9901F SCORE >"-5000THENPROCW IN 
1000ENDPROC 
1010DEFPROCWIN 
10200*0 

1030R aa RND< 255 > : B*RNDC 5 > 
1040C«C+1 

1050SQUND1, -15, A, B 
1060IFC<100THEHGOTO1030 
1070COLOUR129:CLS 
1080PRI NT '• •’ " COHGRRTULRTI OHS " •’ "Y 
CiLP VE RAISED THE CASH TO' BUY R T 
ICKET FOR THE NEXT STAGE COACH 

OUT OF DODGE. CITY." 

1090END 

1100ENDPROC 

1110DEFPROC YOUR „.H IT 

1120PRINTTRBC3,SHERIFF >"X " 

1130PRI NTTRBC 3, SHER IFF+1 M " 
1140F*2©0 

1150SOUND1, •" 15, F, 1 
1160F-F-5 

1170IFF>0THENGOTO1150 
1180TIME*0:REPERT:UNTILTIME*180 
1l98PRINTTRBC3,SHERIFF>" " 

1200L. I VES=L. I VES“ 1 
12101FL. I VES*0THEHGOTO 1260 
1220SHERIFF*19 

1230PRI NTTRBC 3, SHERIFF >.; CHR*< 22 
4>;CHRSK226 > 

1240PRI NTTRBC 3, SHER IFF+1 >CHRfcC 
225 >.; CHR*C 827 > 

1250ENDPROC 
1260COLOUR129:CLS 
1270PRINT•"YOU HAVE,SUFFERED TH 
REE SERIOUS INJURIES AND DIED" 


690DEFPROCFIRE 

700ENVELOPE1,3,-17,61,9,4,0,0, 
126.0.0,-126,126,126 
710SQUND1., 1, 157,5 
720B U L L E T •- 5 

730PRINTTRBCBULLET,SHERIFF >"-" 
740TIME--8 : REPERT : UNT I LT I ME*3 
750PRINTTRBC BULLET,SHERIFF >" " 
760IFBULLET®POSITION AND SHERI 
FF«X THENPROCHIT:QOTO70 

7701 FBULLET* POS ITI ON FIND SHERI 
FF*X+1 THENPROCHIT:GOTO70 

7801 FBULLET=5RND SHER I FF*~ 14THE 
NGOTO860 

790IFBULLET=5RND SHERIFF*15THE 
NGOTOS60 












>^iSMFPRoiroi 
1300REM8RLQON< 
^310GO3^',).3J. , 


1330GCOL0., 0 *4 

1340M0VE176,996 \ 

1350MOVE576,1024 
1360PL.OT85, £40; 1824 . 

1370PLOT85,624,896 
1380MQVE624,836 1660RB 

1380MOVE176,336 1670GC 

1400PLOT85,400, 1024 1680W 

1410GCOL0,2 1690MQ 

1420MOVE168,896 1700PU 

1430MOVE640,896 1710PU 

1440PLOT85, 160, 704 1720GO 

1450PLOTS5,640, 704 1730HO 1 

1460GCDL0, 1 1740MO 1 

1470MOVE352,768 1750PU 

J480MOVE448,768 1760PLI 

1490PLOT85,352,704 1770GD 

1500PLOT85, 448, 704 1780f10' 

1510GC0L.0,0 1790DRI 

J 520MOVE448, 704 1800riO< 

1530DRRW448,800 1810DRf 

1540DRRW352,800 1820MO' 

1550DRAW352,704 1830PRf 

1560MOVE352,768 1S40MO' 

1570DRRW448,768 1850DRf 

1580MOVE400,768 1860GC( 

1590DRRW400, 704 1870MQ\ 

1600GCOL0,3 
J610CQLQUR3 
1620COLQUR128 

1630PRJNTTfiB<10,5 r'SRLOON" 

1640COLOUR131 

1630PRI NTTflIK 0,0 >; SPC< 39 > 

















1880MDVE1088,864 
1890PLDT85, 1008,768 
190QPL..OT85,1088,768 
1910GCOL0,0 
1920MOVE1024,864 
1930DRRW1024,768 
1940MOVE1040,864 
1950DRRW1040,768 
1960MOVE1056,864 
1970DRRW1856,768 
18Q8M0VE1072,864 
1990DRRW1©72,768 
2000GCQL0,1 
2©10f1OVE928,704 
2020MOVE992,704 
2030PLOT85,928,832 
2040PLOT85,992,832 
2050COLOUR0 

2060PRINTTRB<28,3 >"BRNK" 
2070VDU23,224,62,255,65,35.28.6 
0,127,127 

2080VDU23,225,127,127,127,31,27 
# 24 £48 248 

2090VDU23,226,0,128,0,128,0,0,1 
28,135 

■ 2100VDU23,227,252,0,0,128.128,1 
28,128,224 

2110VDU23,228,0,1,0,1,0,0,7,4 
2120VDU23,229,123,30,0,0,0, 0,0, 


55,255,255,255 

2160CQLQUR0 

2170PRINTTRB* 


2100ENDPROC 

2190DEFPRQC1NSTRUCT10N3 
2200C0LOUR130 
221©COLOUR© 

2220CLS 

2200PRIN JTRS<12,1>"#**#**###*## 

XXXX” 

2240PRIHTT AB< 12>"# 


PODGE CITY 


2260PRINTTAB<12>"* MARTIN CLIFT 


2270PRINTTRB<12 >"##*#*####*##** 


2280PRINT ■’' " Howdy par t ner ! "' "W 
el come to Podge- City." 

2290PRIHT"Due to lack of applic 
ants the positidn of sheriff ha 
S become vacant in Podge " 

2300PRINT"City, and you have th 
e dubious honour of becoming t 
he new sheriff." 

2310PR1NT"Well to be honest you 
have -no choice, it’s either t 
his or Uncle Sam will send you 
to Alaska." 

2320PRINT’"The problem is those 
pesky bandits who seem intent 
on robbing your Bank." 

2330PRINT"But you will be rewar¬ 
ded with a hundred dollars for e 
very bandit you kill, and if yo 


27 
















2430PRINTTABC 11 >’'* SPACE BAR .'FI 
RE #" 

2440PRINTTABC 11 >"**##:M#**###** 
11 

2450INPUT' " 1 "HIT RETURN TO PLR 
Y"fi* 

2460ENDPROC 

2470PEFPRPCLOSE 

2480ENVELOPE2,1,4,-4,4,10,20,10 
126,0,0,-126,126,126 
2490SQUND1,2,100,100 
2300RWRY* 11 

2310PRINTTRBC POSITION,AWRV > jCHR 
f< 228 ?j CHR*< 230 > 

2320PRI NTTfWt POSITION, AWRY +1 >; C 
HR)K 229 > j CHR9K 231 > 

2330T J ME*0sREPEAT:UNTILTINE»20 
2940PRINTTRBC POSITION, RWPIY>" " 


2S30PRINTTRBCPOSITION,RWRY+1> 

2560AWAY® AWAY 1 

2570IFAWAY-30THENGOTO2390 

2580GOTO2510 

2590SCORE-SCORE-500 

2600IF8C0REC0THENSCORE=0 

2610PRINTTABC 1,30 >"YOU HAVE * 

SCORE 

2620E N D P R 0 f: 










RUNS ON A COMMODORE 64 WITH ONE JOYSTICK 




mm 


BY DAVID ESTALL 


The age of romantic adventure has 
returned! 

We have turned the clock back to the 
birth of the hot air balloon and the era 
when exploration of undiscovered 
lands was all the rage-and there 
were still undiscovered lands to be 
discovered. 

You have been placed in the shoes 
of Rodney Bigglesworth, famous ex¬ 
plorer and upper class twit, who is 
preparing to take his new balloon on 
an epic journey across the countryside, 

Once the rope has been cut 
and the sand baas dropped 
from the side of the basket, 
you will be airborne. 

The strong winds 
soon blow me bal¬ 
loon miles away 


from your home 
and you'll have to 
help Rodney 
avoid church 
steeples, trees 
and other care¬ 
less balloonists if 
you hope to 
reach your secret 
destination. 
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HOT AIK 


217 I>R=8 •• IFH$=”H 55 0F J= 12S0RJ=1220RJ=118TH 
ENFOKEV+1 ,PEEK<V+i) -5 
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278 IFI>R= 1HN£BL=211THENBL=218 

255 P0KE2848,EL IFRND(1>0,9THEN278 
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IFRND(!) 0■5THEN270 

267 POKEV ,PEEK < V) + < INT (RND <D *3-1) > + <PEE 

K ; v)0 274) 

8 !FBL=218 THEN3C= S0- +1 


2-7 IFPEEK < V 
2"7 IFPEEK <V 
2”3 IFPEEK<V 
238 80TO168 
1888 IFE>1THEN1815 

1887 print”sbhbmk 


>0258THENSC 
>>288THENSC 
>01Q8THENSC 


= 3 C i-4 
= 30-2 
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3) « GB ; :HB=INT(RND <1)*7-2> 

1818 FORH=iTOHB : PRINT” +TJi' ' NEXT A :PRINT” 
<L®VB“ • B=2 : GOT0288 
1817 IFB>2THEN1838 
1828 pr i n t ameas 


; m/ZM 

1825 FORft=lTOHB PRINT !i ..[» 
>E»« n '• £=3 •• G0T0288 
1838 print 

mXX 


; NEXTH:PRINT" 
mmm ;SPC<3 




1835 FORH=1TOHB:PR IN 1 
CS"B H B=8 GOT0288 
2888 IF TO- 1THEN2810 
2885 pp uu 

3) : ^SOBtOKB” ■ 7=2 : GOT0288 
2818 IFTO- 2THEN2828 
2815 pr i nt 


: NEXTH:PRINT" 
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0828 PRINT”*— 
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3> ; ”**EEB:3H H -• T=e 
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272,8 
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GOT028 
. SPC <3 


3868 frtnt” s— mmmmmmmmmmsm ” 

3 > ■ « GB=lB=EH ; • HN=INT <RNI> CD *6 +2) 

3887 FORH=lTOHH :PRINT 5: COi“ :■ :NEXTH :PRINT 1 * 
;8 H :N=8;G0T0288 

4888 POKE2848.213 : POKEV+39,2 : POKES +1... 8 : P 
0KES 8 POKES +4,8 •• POKES +24,15 ' 

4885 POKES+4.129:FOR I = 188101STEP-.5 POKE 
3+1 I;NEXT:POKES+1,8'POKES.8:POKES+24,1 
4818 FOR 1 = 1 T C> 1888 : NEXT I : POKEV ,0 :F0KEV+23 
, 8 •• POKEV +29,8 

4815 PRINT” —— 111 :• ; F OR H= 1T 016 PR INT” 

I! 

4828 NEXTH -.PR INT”««-«-«-«-^-««-«««« 
i $ $ $ $ $ '$$$$ $ $ $ $■ $ $ $ ■tCEIi 1 ! :• ; L I=L I —1 
4827 IFLI=8THEN4858 

4838 PRINT 5 ’ VOU HHVE” ;L1 ; "BALLOON” •• IFL 
101THENPRIN T ” S ” ; 

4348 PRINT” LEFT” :FORI = 1T02888•NEXT 

4847 B=8 : T=8 : H=8 • BL=218 • G0T0138 

4878 PP I NT ” MH —»»————— GAME 

OVER” 

4877 PRINT 
4868 PRINT 
CO HITHENHI=SC 
4865 PR INTH I 

4878 PRINT”: 

OR BNE TO ENI>” 

4875 GETA*:IFH*=”V”THENROKEIPS,8:G0T055 


VOU SCORED”;3C 
IGH SCORE 55 ; • IPS 


>RESS SVC TO PLHV HGHIN 


■rrmm 'i 


118 F0RH= 1904T02823 : POKEH , 26 : POKEH+54272 
7 : NEXTH : FR INT ,i aBMHHZZZZ22«ZZZZH M 

117 PR IN 7 igMM—M——M—M—— &\ m m 


128 PRINT” 

1+ ,• 

.27 PRINT 


+ ~isS—+ 

7 34 •. P0KE56127,8 

138 3=74272 : FORl= 0TO24 : POKES +L 8 •• NEXT : PO 
KES+3 3 : POKES +7 , 41 : POKES +6 . S3 
137 POKES+ 14 .• 117 -.POKES+13,16 • POKES +24,14 
3 F0RH=8T016 *.POKES +4 .. 67 
148 FORTT=lTOS<H,1>*2•FO=S OH ,8,+PEEK(S+2 
7 /2■HF=INT(F0/276> :LF=F0HND257 
145 POKES.LF .POKES +1.HP:NEXTTT:POKES +4,6 
4:NEXTH 

178 POKE2840 , BL‘: POKEv +39 . ll POKEV +23,1 '• P 
OKEV+23.1:POKEV +1,138 POKEV +21,1 
177 FORH=8TO130:POKEV•H:FOPC=1TO10•NEXTC 
, H • BL=211 : H=PEEK < V +31 

166 3VS NC: IFPEEK (2848)0218THENPOKEV,PEE 
K V > - (PEEK (2848.) -218 

167 PRINT”8“;SPC<33> 

170 pr i nT !, aBMMBMHBi 


mm, i—— ; spc < s 

”tP0KE2823=26■P0KE76237,5 

171 IFRND < DC. 3‘ORBO-8C>RT>0ORM>0THEN 175 

172 X=1263 + (INT <RNI> < 1> *1£) 148) :P0KEX./33: 
POKEX+54272,8 

175 POKE 1903 36 :P0KE5S177 8 : IFB=SHNDT=8H 
N3N=0HNDRNI> < 1) C . 9THEN288 
138 IFB0 8THEN1888 

137 IFT08THEN2888 

138 IFHO 8 THEN3888 

137 H=RNX> (1) •• IFHC . 3THENB= 1 G0T0288 
136 IFHO.6THENM=1:GOT0288 
197 T=i 

.200 IFPEEK < V> = 16THEN4888 

267 IFPEEK < V+31> = 1THEN4888 

210 GETHt: J=PEEK(JS> IF J=127HNDH$=” i! THEN 


! 
































continued from page 29 




1006? PATA148,B,S,112,0,0,0,0,0,6,0,0.0. 
0_0_0,0,099,0 ; 124,0,1,131,0,2,192,128 
1000S PATA5,8,04,5,8,64.10,0,32.10-0,160 
■- * •- 0 -■ iS0,4,1,64,4,1,64,6,6,192,5,131,64 
10809 5ATA2,254,128,2,130,128,1,69,8,1,6 
5 10 0-■ 198,8,0,254,8,0,138,0,8,63,0,0",56 

10010 PATA6,99,8,124,8,1,131, Q ,2,192,128 
5,8,64,5,8,64,18,8,32,18,8,168,8,8.176 

10011 PATA4,1,88,4,1,104.2,6.152,1,131-2 
0_8,125,12,8,6,282,0,1,178,8,0,98,8,8 

10012 PATA28,0,8,8,6,8,0,0,0,B,0,0.0,qq 
8,146,0,4,146,64,13,84,144 ",73,35,36 , ©’8 

10813 PATA8,241,200,156,138,48,162,138,4 
4_, 168,243,234,174,138,41,162,138,48,16 

10814 DATA242..48,156,8,0,8,73,85.36 , IS 3 
4_144,4,146,64,8,146,8,8,8,8,8.0,0,0,0 
10015-PATA0,0,0,8,60,66,153,161,161,153; 
66 , 68255 , 255 255,255,255 ,25-5 ,255 2*55 
18816 PATA8,0,8,1,6,11,13,23,8,31 j119,25 

•i 4^55 22 1 

1081? DATA255,11?,8,8,128,224,176,288,25 
ib’2 .,53,63,27,23,15.6,3,1,131,251,223 
18818 PATA189,24?,86,86.2347146,84's6~23 
9 : 56,84,146,17,258,138,244,216,240,8 
10819 PATA8,8,178,86,85,93.178,234,255 
18828 PATA255,8,0,8,8,136,170 .255 ,255.0, 
6,0,0,0,1,2,5,16,48.48.84,186 ", 125 -2?8 
18021 PATA199,0,0,0,0.0.0,128.64,11-23.4 
,95,191,1B7,187,127,199,199,255.255 


10022 PATA255,215.21- 
4 -•• 258,172,172,252,18? , 18? 

18823 PATA16?,18?,127,215 
‘15,215,255,172,172.252 

18824 PATA172,252,10?,10? 
255,255.199,187,18? 
PATA18?,172,172 


7 .127 
18825 
255 


168,288 
12 ? , 12 ? 
215,255 
252,252 


12 ? 

18? 


12 ? 

13? 

252 


32,24 
127 

255 ,25 
172 

12 ? , 12 
171 

252,25 


16,16,56,48,56,16,56.48,40,56,48 
10846 PATA48,48,56,48,48,188,84,?6,84 -10 
8,84,76,84,180,84,76,34,186,254,254,255 
1862? PATA255,255,231,112,231,255,255,8 
":0088 PATA169,0,133,28,169 -4,133,21 -168 - 
, 177,20,136,145-, 28,288,208,192.40 
0801 PATA208,245,136,169,32 147,28 -169. 
48,24,181,20,133,20,169.0,101 .21133,21 
20882 PATA201,7,208-, 221,165 ,28 .201,232-2 
88,215,96 

28858 PATA4817,2,5183.2,5487,2,8533,4 74 
87,2,8583,4,5487 ,4,8583,12,9634,2 
79851 PATA1028?,2,10814,2,8583,2,9634.4. 
16-314.2,3583,2,9634,4,3583,12 


4088 I FA-JO "N" THEN4075 

4835 PR INT"UBB|TBANKS FOR FLAVIN'S .BYE ; 

R0KE53280,15 :P0KE53272.21:ENP 
4999 ENP 

5888 POKES3280,14:P0KE53281,14 

5885 PRINT’’UB! ! ' INSTRUCTIONS FOR FLAVIN 

S #HOT AIR® !!!" 

5818 PRINT" IN THIS SAME YOU HAVE TO TRY 
TO FLV" 

5815 PRINT”® YOUR BALLOON ACROSS THE COU 
NTRVSIPE" 

5828 PRINT”® WHILE TPVINS TO BATTLE ASAI 
NST THE" 


5025 

PRINT”® 

MI NI> 

i j 




5936 

PRINT”® 

YOU 

AL 

SO HAVE TO 

TRV TC 

> DOD 

SE SEEPS" 





5835 

PRINT"® 

THAT 

ARE CAUGHT IN THE 

WIND 

5848 

PR INT"HI 

i THE 

K 

EVS YOU USE 

: ARE" 


5845 

PR INT "Hi 

W 

ii 

,"OR YOU CAN USE" 


5858 

PRINT"® 

A ! 

D }i 

, , E: A JO VST I 

:ck” 


5855 

PRINT”® 

X” 

, i 

!i IN PORT 2" 



5660 

PRINT ”HH 



■•PRESS ANY KEY 

TO R 

L A V * r ; 







5665 

SET At -- IFAi=” 

"THENS065 



5078 

GOT095 






18880 

PATA251 

,231 

,2 ! 

55,251,224, 

243,25 

1,22 

4 8 : 8 

,8,8,8,8 

, 8 , 8 

,8 

,8,251,235, 

232= 8. 

11 

18881 

PATA224 

,8,251 

,224,0,0,0, 

8 , 8 , 8 , 

0 , 0 , 

8,251 

,231,223 

, 258 

t 7 

,223,254 ,24 

7 :255 


18882 

PATAS,8 

, 8,8 

'! 8 

, 0.0,0.0,8 , 

248,8, 

8,25 

4,8,8 

,254,8,99,8,8,8,8,0,8,8,0 

,0,255 


18883 

PATA239 

,232 

,2! 

51,235,232, 

251,23 

5,23 

2,8:8 

, 0,0,8,8 

, 8,8 

:8 

, 8 255,224 , 

8,8 . 0 . 

255 

18884 

PATA231 

,255 

,8 

, 8,8,8,8,8 , 

0,0,0 , 

258 . 

24? ,2 

08,258,247,223 

,256,247,22 

3,0,8. 

8,0 

18885 

PATA6,6 

, 8,8 

.8 

,99,S,124,8 

,1,131 

, 0,2 

, 192 , 

128,5,8,64,5 

,8 

, 64 , IS , 8,32 

,10.0, 

168 

18886 

PATA24,0,168,28,1,64,44, 

1.64,5 

0 ,6, 

128:3 

1,131,8,5 

??,124 

,8,166,192, 

8,155, 

8,0 




























The idea of the game is to bomb the city before your 
crippled helicopter crashes into the side of a skyscraper. 

you manage to destroy all the buildings and 
successfully land your chopper, you will receive 30 bonus 
points. Every four safe landings wins you a super bonus 
of 3Q0|pi>ints! 

v ** Tne program is split into two parts. The first defines 
the graphics, and, when it has run, the program erases 
itself. The second program can thteh be loaded and 
executed. 

But remember that both programs inust be typed in 
separately and saved on to tape. 

t t 

Variables 

H - Helicopter's position :,‘>4 ^ 

FI = Position of bomb M 

SI = Sound channel 











RUNS ON AN UNEXPANDED VIC 20 





P=0 

F0R0=3144T081S1 
GOSUB330 

F 0RL=3144+PT0S144-<S *22 >+PSTEP-22 
POKEL,4:POKEL+C,0 
POKE31 ,208+D : D=D +1 
NEXT 

POKEL , 6 •• POKEL +C . 0 
POKES 1,0 ■■ B=0 •• P=P +1: NEXT : J=1 
PR I NT ’’SBSCORE "SC 
PR INT"aSBHI-SCORE"HI 
'-’OKEH£i • POKEH+1.0 : H=H +1 
IFPEEK(H+l)=40RPEEK<H +1>=6THEN300 
IFH+1=8163THEN480 

POKEH1 : POKEH+i , 2 : POKEH+C , 2 : POKEH+C+ 


0 IF J=1T HENP0KE S1 


460 H=?724 • FOR T=?680T 08185 POKET,6' NEXT 


115 IF J=8 T HE NP 0 K ES1,150:POKES1■0:J=i 
12B IFF I > HTHENSFI=FI+22:GOSUB200■GO TO130 
125 IFPEEK<203)=32THENSFI=H+22:FI=SFI:GO 
SUB280 

12? IFPEEK <203) =64THENF0RT=1T045•NEXT 
13© GOT070 
208 POKEFI,0 

285 IFSFI08164THENF1=8:Z=0:RETURN 

20? IFPEEK<FI>=40RPEEK(FI>=6THEN2=2+1:SC 

=SC+5 POKES!+1,178 

20 S IFPEEK (FI) O40RPEEK <F I) O6THENF0RT=l 
TO18:NEXT 

210 F I=SF I : POKEF 1,3. POKEF I +C , 0 : POKES1-2, 
200 : P0KES1-2,0 


IVOU GET ft SUPER BONUS OF 300 


475 SC=SC+300:RETURN 

500 PR INT "Ui HELI-BONBER _ 

1 1 " ’" 11 > > 

505 PRINT"WBOMB THE CITY SO THAT IT IS 
THEN POSSIBLE TOLANB THE HELICOPTER." 

510 PRINT"BO THIS BEFORE YOU CRASH IN 
TO THE CITY" 

515 PRINT"WPRESS SPACE TO BOMB" 

520 PR] NT "■MB PRESS ANY KEY «" 

525 IFPEEK(203)=64THEN525 

530 PRINT"L":RETURN 

680 S=INT(RNB(G)§F> :RETURN 


BY WAYNE LLOYD 


IB POKE52,23 ; POKE56,23 
28 REABB:IFB=-1THEN70 
38 POKE? 168 +A*. B :A=A + 1 : 80T028 
j 40 BATA0,0.0,0,0,0,0.0 

I 45 CATA255,1,139,255,127,,8,S3,255,128 
, 248 200,228.243,64 ,243 ' th 

>0 BATA5S,16,56.56,56,56.56.16 
60 BATA255.153,153,255 .255,153,153,255.1 
65 255 .. 165 255,255,165,255.165 
65 BATA24.60.126,255 255 ,255,153,153,2,4 
2 42,23,3,23,34,8 

67 BATA255,255,255,255,255,255,255., 255,0 
,0,0,14,14,14,2,2,-1 

70 PR INT"LITHE GRAPHICS HAVE JUSTBEEN SE 
7 UP NOW LOAD THE GAME.B" 

90 NEW 

10 1-7=7724 -■ S 1=36876 P0KE36S7S , 15': P0KE3637 
9 25 •• C=38720 : G=0 : F=3 
J15 G0SUB588 

|28 P0KE36369,255.F0RT=7638T03135:POKET,0 

' NEXT 


25 F0RT=3164T03135.POKET,3 POKET+C,0:NEX 

1 T 


215 IFPEEK (FI +22 :>=40RPEEK CF I >=6THENZ=Z+1 
SC=SC+5 

|228 IF2=5THENZ=0:POKEFI,8.F1=0:POKES1+1, 

I 0 

225 RETURN 

380 32=36365.83=36364:FORT=1TO100:ROKESl 
-1,220 : P0K5S2,34•POKE32,42 • P0KES3.14:POK 
I ESS,28 

302 P0KES2,33:POKES3,12:NEXT 

305 POKES1+1,8• F0RT=?832T0?894'POKET,3:P 

OKET +C , 2 '■ NEXT 

318 FORT=7756T088963TEP +22 POKET,8 :POKET 
+C , 2 : NEXT 

328 FORM=280TO240:POKES1+1,M:NEXT 
325 POKES!,8'POKES1+1,6:POKEFI,0 FI=8 
338 PRINT"aBMB YOU CRASHED! ! ! ! ! ! 

332 FORT*IT01500'NEXT 

335 P0KE36869,248 : PR I NT "Lt" 

336 IFSOHITHENPRINT” YOU HAVE GOT THE BE 
ST SCORE YET! WELL BONE! ! " ■ HI=SC 

348 PRINT"MHI TO PLAY AGAIN" 

342 PRINT"! PRESS ANY KEY" 

345 IFPEEK(283)=640R PEEK(283)=32THEN345 
358 SC=0 : GOTO18 
I 408 POKEH,6:POKEH+l,8.POKEH,7:POKEH-22,9 
|402 FORT=1TO300:NEXT 

I 405 PR IN T "aawa s V A a - ! YAAY ! YAAY ! YAAY ! " 
48? FORT=1TO300:NEXT 

1418 PRINT"*JVOU HAVE LANDED SAFLY WITH A 
SCORE OF"SC:SC=SC +38 
415 PRINT"HYOUR SCORE WITH BONUS POINTS 
IS"SC" 

428 0=0+1 
425 IF0=4THEN0i=l 
|42? IF01=1THEN0=6:01=8:G0SUB478 
|438 PR INT"B3PRESS A KEY TO CON'T" 

!435 F=F+1:FI=0 
1448 IFF>=16THENF=16;G=G+1 
| 445 IFG>=14THENG=14:F=16 
455 IFPEEK <283 >=64THEN455 
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, PLATFORM WILLY 





















































































RUNS ON SPECTRUM IN 16K 


BY JOHN SMITH 


MINER WILLY is back and better than ever. 

Willy is still stuck down the mine but there has 
been a power failure and the whole mine is in 
darkness. 

Luckily for Willy, he has found the reserve 
engine and managed to start it up. But now he 
must clamber across the platforms and through 
the shafts to replace all the blown light bulbs. 


5 GO SUB 8600 

10 RANDOMIZE : GO SUB yB00 _ 
i s go SUB 9900: GO SUB 6600: G 
,n TO SO ' __ 

20 IF aS 0 +1, b + 1) =" “ THtN RtT 

I 

25 PRINT INK 2;AT a-2,b;“K“: L 
ET 3$ 0-2, b + 1) = "K" 

30 LET £ C =£ C +10 : LET 1 = 1+1: IF 
l=95 THEN GO TO 5000 
40 BEEP .0005,69: RETURN 
50 LET X$=”B": LET y$«“A" 

55 LET a=20: LET b=22: LfcT qw = 

0 

60 PRINT AT 1,14.;" 

70 FOR f=l TO li : PRINT INK 6.; 
AT 1,13+ f; "A”: NEXT f 
90 GO SUB 3005 

ISO print AT a , b; a $ O , b + i) AT a 

-1, b; 3$ <3-1, b + 1) 

110 IF 3$(a,b+1)= "H" AND INKEY$ 
="q" THEN LET 3=3-1 
120 IF INKEY$=“P" THEN LET b=b+ 
1: LET X $ = "E" : LET y$=“D" 

125 IF INKEY$ = "0" THEN LET b = b- 
1: LET X $ = “C": LET y'S = “A" 

130 PRINT INK 5:AT 3 ,b;x$; INK 
6;AT a-l,b;y $; AT c-i,d;"I" 

140 IF a$ <3+1, b + 1) = OR 3$ 1.3 + 

1,b+1)="K" THEN GO TO 2000 
1S0 IF aS 0-2, b + 1) =" " AND 3$ <3 
,b + 1) < >"H" THEN GO SUB 20 
165 IF INKEYS="P" OR INKEY$=“0" 
THEN GO- SUB 1000 

190 LET t i = t i -1: PRINT INK 5.; AT 
i,S;ti 

200 IF ti<=0 THEN GO TO 2000 
500 PRINT AT a,b;3$<3,b+1);AT a 
-1 . b; as <a-l,b + l) ; INK 5; PAPER 1 
;At 1,1;sc 

510 IF 3$ <3+1,b + 1) =“H" AND INKE 
Y5="a" THEN LET 3=3+1 
520’ IF INKEYS="P" THEN LET b = b + 
1: LET X 5 = "F": LET y$ = "D“ 

525 IF INKEY5="0" THEN LET b = b- 
1: LET x 5 ="B“: LET yS="A" 

530 PRINT INK 5; AT 3,b.;x$; INK 
S AT a --Wtrry-SrftT- -- -1, d , : -'L” 

540 IF 3$ <3+1, b + 1) =" " OR 3$ <3 + 

1 „b+l> = "K" THEN GO TO 2000 
560 IF 3 5 <3-2, b + D =" " AND a 5 <3 
, b + 1) < > "H” THEN GO SUB 20 
'565 IF INKEY5=”P" OR INKEYS="0" 
THEN GO SUB 1000 
590 IF a = c AND b=d THEN GO SUB 
3000 

S00 IF ti=10 THEN PRINT AT l,Sj 
999 GO TO 100 

1000 IF b =30 OR b = 1 THEN RETURN 
1010 IF INKEY$=”0" THEN GO TO 11 
00 

1020 PRINT AT a , b; 3t <3 , b + 1) ; AT 3 
-1, b; as <3-1, b + 1) : LET 3=3-1: LET 
b=b+l: BEEP .0005,40_ 


This is no easy task when you are faced with 
broken, dangerous ladders and huge gaping 
holes between the platforms and the mine 
shafts. 

The Q and W keys move Willy left and right. 
The P and L keys are used to make him climb up 
and down the ladders. To make Willy jump just 
press the Caps Shift and either the Q or W key. 


1030 PRINT INK 5;AT a,b;“E"; INK 
6;AT a-l,b;"D"; BEEP .0005,42 
1040 PRINT AT a , b.; as <a : b + 1) ; AT a 
-1, b; as <3-1, b + 1) : LET a=3+l: LET 
b =b + l: BEEP .0005.44 
1050 RETURN 

1100 print AT a , b.; as <3 , b + 1) ; AT a 
-1, b; as <3-1, b + 1) : LET 3=3-1: LET 
b = b-1: BEEP .0005.40 
1110 PRINT INK 5; AT a,b.;"B"; INK 
6;AT 3-1,b;"A": BEEP .0005,42 
1120 PRINT AT a,b;a$<3,b+1);AT a 
-1, b; 3$ <3-1, b + i) : LET 3=3 + 1: LET 
b=b-l: BEEP .0005,44 
1130 RETURN 

2000 BORDER 7: PRINT AT 3 .b;a $<3 
, b + 1) ; AT a-l, b; 3$ (3-1, b + 1) : BORD¬ 
ER 0: FOR f =3 TO 21: PRINT OVER 
1; INK 7.; AT f,b;x$;AT f-l,b.;y$: 
BEEP .005,60-f: PRINT OVER 1;AT 
f , b.; X s; AT f -1, by $ : NEXT f 
2010 LET l i=li-1: IF ti < =-1 THEN 
GO TO 4030. 

2020 GO TO 50 
3000 LET sc=£C+20 

3005 PRINT AT c,d;a $<C,d +1) ;AT c 
-1, d.; a $ < c -1, d +1) INK 5; AT a.b;x 

S, INK 5;AT a -1,b;y $: LET ti=i 
3007 FOR f=40 TO 60 STEP .5 
3010 LET c =3 +INT (RND+17) : LET d 
=1+INT (RND+293: IF a$<c+l.d+l)= 
”G" THEN GO TO 3030 
3020 BEEP ,0005,f: NEXT f: GO TO 
3000 

3030 PRINT INK. 4; AT c,d;"J" ; INK 
6.; AT c-1, d : " I" : BEEP . 05,30 
3040 RETURN 

4010 -i_E' r x $ = " - G' A H E 0 V E s 
: FOR f=1 TO 300. NEXT f 
4020 FOR ?=1 TO 20 FOR q=i TO 2 

0 : PRINT INK 5.; AT 3,5+ f : X$ < f) : B 

EEP ,0005,5+30: NEXT g: NEXT f: 
FOR f=1 TO 500: NEXT f 
4030 IF s ohi THEN LET h i =s c 
4040 FOR f=i TO 300: NEXT f: CL6 

: PRINT INK 7.; PAPER 1; AT 10.7; 

"ANY KEY TO BEGIN" 

4050 IF INKEYS<>“" THEN GO TO 15 
4060 GO TO 4050 

5000 FOR f=2 TO 16 STEP 4: FOR g 
=2 TO 31: IF a $ < f , g ) ="K." THEN LE 
T £ C =S C +10 : PRINT INK 7.; PAPER 2 
i AT f , 9-1.; "K" ; INK 5; PAPER 1; AT 
1,1;£ C: BEEP .0005,66: BEEP .00 
05,50 

5010 BEEP .0005,50: BEEP .0005.4 

0: NEXT g: NEXT f: LET 1=0 

5020 FOR f=69 TO 25 STEP -.5: BE 

EP ,0005,f: NEXT f 

5025 IF wa=9 THEN LET ti=li+1: F 

OR r=i TO 5: BEEP .05,55: NEXT f 

5030 LrT i =i -10: LET W3*wa +1: IF 

•i <50 .THEN LET i=50 

5035 GO SUB 8600: GO TO 50 















■ 

■ 




Mutinied from page 35 


8500 DIM a$ (22:32): LET = 

8518 FOR f =1 TO 21: LET a$(f)= :! 

: NEXT f 

0020 1_0T" 3$ l S ) — : ' GHGGGG G GGGGGH 
It G Is Is is H is is is is 

3022 LET 3 $(9) =" GGGGH GG GGG G 
GGGGGH GGGHG " 

3624 LET a$(13)=“ GHGGG HGGGG 

is G is is is is is H G G G G 

3626 LET afii7)=" GGGGH GGGGG 

G H G G G G G H G 

3626 LET 3$(21)=" GGGGG GGGGG 

G G G G G G G G G G G G 

3630 FOR f=l TO 3: LET a $ (5 + f , 3i 
=X$: LET 3 $(5+ f ,16) =X $: LET 3 5(5 

+ f ,27) =x % 

3632 LET 3 $(9+ f,6) =X5: LET a $ (9 4 
f ,22) =x $: LET a $ (9 + f,30) =X$ 

3634 LET 3 $(13+ f,3) =X%: LET 3 $(1 
34 f ,115 =X % : LET 3 $ (13+f 27) =X % 
3636 LET 5 $<17+ f ,6) =X$: LET 3$ Cl 
7+f , 18) =X$: LET 3 $(17+f ,30) =x $: 
NEXT f 

3640 LET q=2+INT (RND+13) : LET Hi 
=2 +1 NT (RND+29) : IF 3 5 (q iM ) = " G " 
P.ND 3 5 (q , w -13 ="G" PND 3 % C q , W 413 = 
“ G " PND 3 $ (q -1, in 3 O " H " THEN LET 
a $(q= itf 3 = "• “: GO TO 8658 
8645 GO TO 8640 

3700 FOR f =1 TO 21: PRINT PT f,0 

;3 $ i f 3 : NEXT f 

8710 PRINT INK 5; PPPER 1PT 0,1 
; "SCORE"PT 0,8; "TIME" PT 0,14; " 
LIUES";PT 0,21,"UPUE ";PT 0,27;"H 
IGH" 

8720 PRINT INK 5; PPPER 1;PT 1,2 

i; M) a ; PT 1 ,2 7; h i 
3730 RETURN 

3800 ODER 1: BORDER 0: PPPER 0: 
INK 3: BRIGHT 1: CLS 
3810 PRINT INK 6;PT 0,6;"- PLPTF 
ORM UILLY 

8820 PRINT INK 5;PT 16,2;"-CONTR 
OLS-";PT 18,0;" "ST - UP 

"P" - DOWN "P- - RIGHT 

•O" - LEFT" 

8830 PRINT INK 4;PT 21,0;"'CAPS 
SHIFT" h O'(OR)"P - JUMP" 

8840 PLOT 125,90: FOR f=0 TO 70: 

PLOT 1254f, 90: PLOT 125-f,90: P 
LOT 125,90+f: PLOT 125,90-f 
3845 PLOT 125+f ,90+r: PLOT 125-r 
,90-r: PLOT 125+f,90-f: PLOT 125 
-f ,904 f • 

3847 IF INKEY$ < >"" THEN OUER 0: 
RETURN 

8850 NEXT f: GO TO 3840 
9800 FOR X =144 TO 155: FOR y=0 T 
0 7: REPD Z: POKE USR CHR$ X+y,Z 
: NEXT y: NEXT X 

9810 DPTP 28,30,254,48,78,50,28, 
23,60,12,60,68,70,65,195,195,60, 
12,12,20,3,18,54,54,56,120,127,1 
16,98,76,55,56,60,48,68,34,98,13 
8,195,195,68,43,43,43,16,72,108, 
108 

9320 DPTP 255,255,129,129,195,12 
6,3,0,129,129,129,129,125,129,12 
9,129,16,68,16,84,15,16,16,16,60 
,78,215,195,219,195,125,53,56,58 
', 100,40,55,55,16 .. 16 
9830 DPTP 43,8,145,16,84,16,15,1 
6 

9890 LET hi=5000: RETURN 
9900 LET 1=8: LET sc=0: LET U=3 
9910 LET c =21: LET d=1: LET W 3=1 
9920 LET i=180: CLS : RETURN 


















































computer qomeck 

gomes, Hkl m based °nwelll<n n . 
always bl ® Mo /?°Poly and n*k °T boar 

i ad fi»f ^rSSL So°?|fe 

down and rot ^ een ^ av °urite I . j , ^° Vl 
The revam Ped for the r L do ' dus ^< 

People?S,f°" b ® playedb y m u m D 0 f Or t 64 
Pieces. f " co ™Puter plavfnnn *° t ! ,ree 

The object of fk y,n 9°ne of the 

C wS£? a «e hoTdT a " yo Ur 

°me is the 


5390:GOTO480 
368 H=PEEK>:F+A(B<5) +X>) 

376 IF ■>1=83) OR 01=58) OR <M*S5 > OR >01=88) THEN 
NEXTD SOSUB830 : SOTO480 
338 SOSUB820 

398 1F >:B <r*> +X) >UTHEN>30SUB358 ■ >3010380 
488 M=PEEK<P*A<B<D>+X)) -OR T*1T04:JFH=K ( 
J)THENSOSUB850:SOTO330 
418 NEXTJ 

428 F0RC=iT04 ■IFH=l(C)THEN328 
'430 NEKTO 
448 8OSUB500 

438 F0RB=43T0U •• FOR J=1T04 I FREER <P+A«'B> ) = 

K >. J) THENV=V+i 

468 NEXTJ:NEKTB 

4"8 IFV03THEN918 

438 IFX=6THEN340 

496 *3=2 : *30T0556 

499 3OSUB1800 

388 POKEP+ACB CD) > , 32 B <D> =5 <D) +X :F0RZ=8T 
09 POKEP+A<B<D>),32 FORI=8TO30 :N£XTI 


1 PEN i*** LUD0-S4 *** 

2 REM ADAPTED BY 6.E . BAKER 
4 CLP 

3 PRINT' Li" • P0KE34296,13 : 30 T 01939 
10 POKE332S0,6 • 3OSUB3080 
13 P0KE54296,13 
118 P=1824 : 8=224 : u=46 :DIMP*.U) E<U. , CC4: 

, r )4 > K (4) , L <4) F < 4 :> , B >!4> , N < 4 ) 

- • -i =r f- ;•••( = ~*r 2 Q ic. 

128 F0RB=1T0U :READA(B) : NEXTB :F0RF=1T0U ;R 
EADE’IF) ; NEXTF 

138 F0RC=1T04 iREABKOC} '■ NEX7C :F0RD=1T04 :R 
EADL (I>) NEXTI) : -30T0178 

148 PR I NT "8" : FOR 1=1 TOT : PRINT;’*" ; : NEXT :PR 
INTTAB 126);" 

14: PRINT"*";THE!26 

138 PRINT"H":F0RI=1T0T T :PRINT"*" : NEXT 

131 PR INTTAB<26) ;" 

132 PRINT"*" ; THE(26) " 

168 PRINT"*":F0RI = 1T09 :PR2NT"*" ; :NEXT 
161 FOR I=1T03 : PR INTTftB <38) *E S’" 

NEXT :RETURN 

•178 -F0RD=1T04 :F)D)=D :B<D)=D NEXTD 
173 P0KE33236,2 ;P0KE332S9 8 
138 PRINT"MHHB HOW MANY PLAYERS 

? 1 OR 2)" 

198 SETPL:IF<PL<1)OR<PL>2>THEN198 

288 PRINT"Li" •• IFPL=2THENPRINT"PLAYER 1" :P 

PINT"-" 

283 PRINT"*" :FOR 1 = 1 "03 PRINT"*" :NEXT- 
218 INPUT"ENTER YOUR NAME":At;Lft=LEN<At) 
IFLAO14THEN238 
228 SOSUB290 '•SOTO210 
238 IFPL=1THEN278 

240 PRINT "*MF'L A YEP 2" -.PRINT” -" 

238 INPUT"ENTER YOUR NAME";B$:LB=LEN<Ef) 
IFLB014THEN278 
268 SOSUB290: *3070236 

278 PR I NT "■■PRESS SPACE' TO THROW THE 

DICE." 

238 PRINT"*IF YOU THROW ft 6 YOU SET ANOT 
HfcP SO.":FORI=8TO380:NEXT I 3OTO380 
238 PRINT"OTOO LONS !!;SPC(28):F0RI=6T0i 
068 NEXTI :PRINT"";SPC(39) RETURN 
388 PRINT"a*S*HS*« PRESS ANY KEY TO ST 

ART f* 

318 SETXf:IFXf="”THEN310 
328 T=3 : TT=16 S0SUB1328 : S= 1NT (RND (1) *2+1 
IF >3=2 T HEN550 
338 IFS=2THEN560 
333 REM t**«* PLAYER 1 ***** 

340 V=e:T=3 : TT=16:SOSUB140 SOSUB770 
336 FORB=1T04:IF <B<D)+X)0UTHENNEXTD:SOSU 
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LIIOO 


r 18 POKEP +A (B <B)> , K (D) • POKE CO +A (B >) , 5 : 

FOP 1=07050' NEXT I 

C11 P0KE54276,0 P0KE54283,0•POKE54290,© 

= 12 P0KE5427? 0 : P0KE542S4 , © : P0KE54291, © : 
NEW TZ:RETURN 
EE© S0SUB499 

530 F0RB=1T04 : IFPEEK <P+E <B'> =32THENP0KEP 
*E •: B) , H ;F(C>=B -.<5070450 
540 NEXTB 
55© IF r L = 17 H E N 9 3 8 
559 REM ***** PLAVER 2 ***** 



UB140 : 60SUB778 
:• +X ) > U T HENNEX TB •' GOSU 


530- W=0 : 7=16 :77=5 :>3C 
573 F0RB=1T04 : IF - - ’.I: 

B390 •• 3010780 

53© N=PEEK<P+E<F<10 +X>> 

59© IF <N=2ii> OP - N=213 OR <N=193.) OP <N=216> 
7HENHEX7D:30SU3S9©:3070786 
60© 3OSUBS20 

61© IF <F <B> +X)>U7HEN3OSUBS50 ■ 3070680 
628 N=PEEK<P +E <F<B> +X) ’> :F0RJ=1T04 : IFN=L < 
J ? 7HEN3OSUB850 •• 3070680 
638 NEX7J 

648 F0PC=1704:IFN=KCCX7HEN740 
658 NEX7C 
668 GOS.UB720 

6"© F0RF=4370U •• FORJ= 1704 ■ IFPEEK (P+E <F) ) = 

L <J>THENW=W+i 

680 NEXTJ:NEX7F 

638 IFMO3THEN910 

708 IFX=6THEN560 

718 *3=1 : *3070346 

719 3OSUB1S0© 

728 POKEP +E <F <I>)} , 32 F <B > =F <I>) +X •• F0R2*8T 
09 POKEP+E<F <10 ),32 FOR 1=87050 NEX7I 
738 POKEP+E <F <B) > , L < B : •• POKECO+E (F <B) > ,4 : 
FOP 1=87050 '• HEX7 I 

731 P0KE54276,8 : P0KE542S3,8 •• P0KE54296,8 

732 P0KE54277,©:P0KE54284,© -P0KE54291,© : 
NEXTZ :RE7URN 

748 30SUB719 

758 F0RF=1704 - IFPEEK <P-t-A<F> ) =327HENP0KEP 

+H *; F .> , N : B < C ) =F '30 7 0 678 

768 NEX7F 

778 P0KE54296,12 

771 PRINT'*" - FORI = 1707: PRINT"*"; : NEX7 :F0 
R1=07028:PR IN7 'H' : 'NEX7 
775 PRIN7"BB THROW 1" 

77© P0KE54277,2 :P0KE54273,9:P0KE54272- 21 

777 P0KE54276,33 

778 FOR 1=07050 ■ NEX7 

779 P0KE54276,8 

731 PR I NT "H" '-FOR 1=1 TOT :PRIN7 J, «" -NEXT :F0 
R 1=07028 ■ PR I HT"B" ; •• NEXT : PR I NT " 

798 >3E7Xt: IFXt= " " 7HEN771 
791 P0KE54277,8 
888 *30TO 1180 
818 RETURN 

328 PRINT"8" - FOR 1 = 1707.PRINT”! 

IN7TftB<26> ; "BBWHICH PIECE TOT 
838 3E7B •• IFIK1ORB>4THEN830 
848 PRINTTftBOl) , 1 MB'" ;B :RETURN 
858 PRINT"B"'F0RI=170T-PRINT"! 

851 PR INT7AB<26) ; ” 

03 

368 PRINT"B" 'F0RI=1T07 PRINT”!" ; •• NEXT:PR 
IN77AB<2S) i ;"aaiLLE6AL ! !B” 

861 P0KE54296,15 --P0KE54277,15 --P0KE54276 . 
33 • P0KE54272,97 

362 FOR r=3BT045:P0KE54273,1 :NEXT I:P0KE54 
277,8:P0KE54276,8 


• NEXT : PR 


NEXT 

F0RZ=8T 


878 PRINT"0" ;TAB <26> 

1=87058:NEXT I:NEXT2 

888 PRINT"*" ;TAB<26);" ":POK 

E54296,0.RETURN 

898 PRINT"B" :F0RI = 170T :PRINT”*" .; NEXT :RR 
I NT TAB <26) ; "BiVOU CAN ' T >30 !B" 

891 P0KE54296,15:P0KE54277,15:P0KE54276, 

17 

392 P0KE54273.7:P0KE54272,163:FORI=0TO20 

8 NEXT 

893 P0KE54276.8:FORI=07O40:NEXT 

894 P0KE54273.6:P0KE54272.108:P0KE54276, 

17 : FOR 1=070350:NEXT 

395 P0KE54276.8:P0KE54277,8 

899 PR I NT "B" :F0RI=1T07 -PRINT”!" -.NEXT :PR 
I NT TAB <26 > ; "HiVOU CAN'T >30!*” 

9@8 RETURN 

918 PR I NT "B” -• FOR I = 1T 0 T .PRINT"!” ; -.NEXT : PR 
INTTAB<26>;"BB VOU WIN ! !!*" :80701120 

928 FORZ=0T04088:NEXTZ:RETURN 

929 REM *■**#*• COMPUTER ***** 

938 W=8 : T=16 : TT=5 : -30SUB148 : G0T01188 
948 FORB=1T04:IF<F<B>+X) = CUTHENN<B>=PEEK 
*’. F 9© < F i B ) +X ) ) 

958 F0RC=1T04:IFN<B)=K<C>THEN1868 
968 NEXTC:NEXTB 

978 F0RB=1T04:IF<(F <B)+X) = CU)ANB<N<B)=32 
>THEN6OSUB1040:8070990 
988 NEXTB:*30701090 

998 F0RF=43T0U:F0RBB=1T04 : IFPEEK<P+E<F)) 

=L <BB)THENW=W+i 

1080 NEXTBB : NEXTF 

1018 IFW03THEN1118 

1028 IFX=6THEN930 

1830 *3=1 -.80TO340 

1039 80SUB1888 

1840 pokep +e*:f<b :>>,32 f<b)=f<b:> +x:F0RZ=b 

709:POKEP+E<F <B)> .32 ; FORI=0TO58:NEXT I 

1050 POKEP+E<F<B>),L<B>:POKECO^E<F<I» ),4 
:FOR I=8T050 : NEXTI 

1051 P0KE54276,0:P0KE54283,0:POKE54290,0 
1852 P0KE54277,0 : P0KE54284,0 •• P0KE54291,0 

NEXTZ-RETURN 
i860 3OSUB1039 

1078 FORB=1T04:IFPEEK CP+A <B>> =327HENP0KE 
P +A <B >,N <B > :B <C)=B:SOTO990 
1080 NEXTB 

1030 PRINT'*'’ :FOR 1=17016 PRINT"*” :NEXT : 
PRINTTAB<27) ;"B*CAN' T 80 !£2|" 

1891 P0KE54296,15:P0KE54277,15 : P0KE54276 

1 17 X 

1B92 P0KE54273,7:P0KE54272,163 : FORI=8T02 
80 -. NEXT 

1893 P0KE54276,8.: FOR I=0TO48 : NEXT 

1034 P0KE54273,6:P0KE54272,188:P0KE54276 

,17:FORI=BT0358:NEXT 

1895 P0KE54276,0:P0KE54277,8 

1188 SOTO1820 

1110 PRINT 1 *";:F0RI=1T017 PRINT"*" NEXT 

1111 PRINTTAB<26> BI WIN ! ! !*" 

1128 G0SUB198B:P0KE54276,0 P0KE54283,9 
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1125 

1138 

'SAME 

114© 

1150 

lit© 

53230 

1170 

1173 

1130 

1131 

1132 

1133 
1130 
12B0 
8 

1216 


P0KE54277,0.P0KE54234,0 

P F INT"LJMM£IiO VOU WANT AN0THE 
? (V OR N>C” 

C’ETK* : IFX'*=" "THEN1140 
IFX$="V"THEN170 

IFX'i="N"THENPRINT"C' 6OSUE3000 POKE 
,14 : P0KE53231,6:CLR:END 
GOTO1140 

REM ***** DICE ***** 

H=0 ■■ P0KE54236,12 'P0KE54277,2 

P0KE54273 45 : P0KE54272 ■ 138 

F0RX=1T06 

GOSUB1200 NEXTX 

H= 1 X= I NT < RND < 1 > *6+1; 

ONXGOTO1210,1228,123©,1240.1258,127 


■■ POKECO+434,1: 

■ POKEP+530,3 


GOSUB140 : P0KE54276,17 POKECO+512 1 
POKEP+512,3:P0KE54276.8:*30701230 

1220 GOSUB160 ; P0KE54276,17 . POKE0:0+473 . -t 
POKECO +551,1 

1221 POKEP+473,3:POKEP+551,3 

1222 P0KE54276,8:G0T01238 
1238 GOSUB168:P0KE54276.IT 
POKECO+512,1:POKECO+598,1 
1231 POKEP +434 S '• POKEP +512 
; P0KE54276.0:G0T01238 
124B G0SUB168 •' P0KE54276,17 POKECO+430.1 : 
POKECO +434,1 POKECO +538,1 : POKECO +534,1 
1241 POKEP+430,3:POKEP+434 3:POKEP+596.S 

POKEP +534,3 : P0KE54276,3 •. GO TO 1238 
1258 G0SUB168 :P0KE54276,17 

1260 POKECO +438,1 :POKECO +434,1 •.POKECO +51 
2,1:POKECO+530,1:POKECO+534,1 

1261 POKEP+430,3 :POKEP +434,3■POKEP+512,3 
HOKEP+538,3:POKEP+534,3 

1262 P0KE5427S , 0 ■. G0T01238 
1273 G0SUB168:P0KE54276,17 

1271 POKECO +438,1:POKECO +434,1 POKECO+51 
2 1 POKECO +514,1: POKECO +59P . ± 

1275 POKECO+534,1 

1238 POKEP+430,3:POKEP +434,3:POKEP+510 3 
POKEP +514,3: POKEP +538,3 : POKEP +594 , P, 

1235 P0KE54276,0:G0T01238 

1236 IFH=0THENREfURN 
1231 P0KE54277,3 

1388 IF<PL=1)AND <6=2)THEN940 
1318 GOTO810 

1328 PRINT"C" •• POKE53280,5 :P0KE53231.9 

1330 F'R IN T "C r—r-'r----: 

TAB(32-INT<LA/2)) ,;A$ 


144o PRINT Gl ill!! 
AB\ 32-1NT(LA/2)); 

1358 FOR1=1TOLA-i:PRINT"| 


i I ! ! I ! ; T 

-NEXT! PRINT 


1360 PR I NT "Cl—f-U—4.- 

1370 PRINT"! I BS! I 

1338 PRINT" fH fir^TH CfH" 

1290 PRINT"! I fii'iAi- I Ci I" 

1233 FORI=8TO10 : NEXT : P0KE54277,0 : P0KE542 
34,0;P0KE54276,8:P0KE54233.3 
1480 PRINT" fH Qf— |R j — i CKH" 

ii ♦! T | | Cl I” 

If—I—4 —i CfH" 

I!*MM I HOMEE i I 


1418 PRINT”! I 
1428 PRINT”!—| 
1438 PRINT”! I 

is or 

1448 PRINT" fH 


B uui-j 


1458 PRINT” 

1468 PRINT” 

as nr 

1478 PRINT”! I Bi i I j 

« Ci” 

1438 PRINT" 


1430 PRINT”! I BHOME 


-r—r—r~tff—! 

I ! i Ci I 

I *—2—4—4—Qf-U 

C! ! 

-'th CfH 

-Ci 


1588 PRINT" fH 
1518 PRINT”! ! 

1528 PRINT" i—| 
1538 PRINT"! ! 

1540 PRINT"fH 
1556 PRINT"! i 
1560 PRINT" f—4- 
1570 PRINT 


CfH” 

Cl 


TfH 


CfH" 


1 f—4 R +— 


CfH" 


H—I ” 
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1550 PRINT 11 !—C " ; : IF <PL=1> ANIXLA=<9> THEN 
FRI NT TAB < 17-INT <LA/2>) : "B" : At: -SOTO 1620 
1606 IFPL®1THENPRINT TAB < 16) ”flVOU" 0OTO1 

&Cl0 

1610 PRINTTAB<14> ;”BPLAVER 1" 

1620 PRINT*’B” •• FOR I*1T018 • PR INT 11 * 11 NEXT 
1530 IFPL*2THENPRINTTAB<-4) ; "BPLAVER 2"-P 
R INT”jg" ; T AB < 32 -1 NT < LB/2)) ;B# 

1640 IFPL®2THENPRINTTAB < 32-INT <LB/2)); F 
OR3 = 1T0LB-1 PRINT 1 ' - NEXT] :PRINT" - " 

1650 IFPL=1THENPRINT” — COMPUTER" PRINT 

TAB(28> ; -MroMPt itrr mmbm— -" 

i860 RETURN 

1670 BATA207,2S7.367,369 371,291,211,131 
,51 ,49,47,45,43,41,121,201,281,361 
1630 BATA441,521,601,631,761,841,921,923 
925,927,929,931,933,935 937,939,941 
1690 ' BATA943,863 783,783,623,543,463,461 
.,459,457,455 

1788 DATA777,697,617,615,613,693,773,353 
« 933 , 935 ,937,939,941,943,363,783,703 
1710 BATA623,543,463,383,303,223,143,63, 
61,59,57,55,53,51,49,47,45 43,41,121 
1720 DATA2B1,231,361,441 521,523,525,527 
,529 

1736 DATA83,90,65,33,211,218,193,216 

1330 P0KE54296.15:P0KE54277,15 P0KE54284 

,15■P0KE54291,15 

1810 FORJ=45TO30STEP-1,9 

1320 P0KE54276,17:P0KE54283,17 :POKE54290 

, 17 

1338 P0KE54273,J:P0KE54272,85:P0KE54288, 

J +1:P0KE54279,35 

1346 P0KE54237,J-2 P0KE54236,85 

1358 NEXTJ 

1330 RETURN 

1980 P0KE54296,15:P0KE54277,13 P0KE54284 

, 13 

1910 FORI=5T043 

1928 POKE54276,65:P0KE54273,I:P0KE54272, 
15 

1936 P0KE54283,65:POKE54280,I - P0KE54279 

, 17 

1940 P0KE54275,13:P0KE54274 1 

1941 NEXT I: P0KE54276,8■P0KE54283,0 

1942 FOR1=5TO115 

1943 P0KE54276,65 : P0KE54273,5 : P0KE54272, 
103 


1944 P0KE542S3,65:POKE542S0,6 : P0KE54279, 
103 

1945 POKE54275,18:P0KE54274,I 
1958 NEXT I:RETURN 

1998 REM INITIAL BISRLAV 

1999 FORI=8T099 : READ3R : NEXT I •• P0KE54296,1 
5.P0KE54277,15 

2086 POKE53280,8 '• POKES3281,0 -.P0KE54272,9 

5 

2018 VC=53243:JL=832 

2020 POKEVC+21,15:POKE2040,11 :POKE2041,1 

3:POKE2042,14;POKE2043,15:P0KE54276,33 

2033 FOR1=8T062 READSR••POKE784+I,SR:POKE 

54273,1 +20 •• P0KE54272,95 : NEXT I 

2048 FOR1=0TO62:READSR : POKEJL + 1,SR•POKES 

4273,I+25:P0KE54272,95 NEXT I 

2056 IFJL=3 960THEN2069 

2060 JL=JL +64 : ■30T02848 

2265 P0KE54273,21: P0KE54272,154:P0KE5427 

6 ; 33 

2276 FOR1=10?T08SSTEP-1iPOKEVC+B,I •POKEV 
+2,131:POKEVCM,174 POKEvC+b,213:NEXTI 
2271 P0KE54276,0 

2275 P0KE54273,22 : P0KE54272,227:P0KE5427 
6,33 

2238 FOR 1=810430 : NEXT I : P0KE54276,0 ■■ POKEV 
C^23,4.POKEVC +29,4 

2231 P0KE54277,93:P0KE54273,12:P0KE54272 
,216:P0KE54276,33:FOPI=8TO408:NEXT 1 

2232 P0KE54276,8 

2290 POKEVC +23,5*.POKEVC +29,5 • P0KE54273,1 
5:P0KE54272,70:P0KE54276,33 

2291 FOR 1=8TO480 .'NEXT I :P0KE54276,0 

2380 POKEVC+23,7:POKEVC+29,7:P0KE54273,1 

7 P0KE54272,37:P0KE54276,33 

2381 FORI=8T0488:NEXT I:P0KE54276,0 
2309 POKEVC+23,15:POKEVC +29,15 

2316 P0KE54284,182:POKE54230,16:P0KE5427 
9:47:P0KE54273 # 14:P0KE54272,187 

2311 P0KE54233,33:P0KE54276,33•FOR 2=8T01 
888:NEXT I:P0KE54283,8:P0KE54276,8 

2312 POKE54277,8 : P0KE54234,0 *• P0KE54296,8 
2328 F0RJ=8T018 

2336 POKEVC+39,3:POKEVC+48,5:POKEVC+41,2 
: POKEVC +42 f 6:FOPI=BT047:NEXT I 

























2348 POKEVC+39,S: FOKEVC+40,8:POKEVC +41,5 
POKEVC+42,2 : FORI»BT04?:NEXT1 
2358 POKEVC +39,2 •• POKEVC +48,6 •• POKEVC +41,8 
POKEVC+42,5 •• FOR I =8 T047 : NEX T1 
2368 POKEVC+39,5:POKEVC +48,2:POKEVC+41,6 
POKEVC+42,8:FOR3=BT047:NEXT 1:NEXTJ 
2338 CLP .RESTORE • GOTO18 
2588 DATA 252,8,8,252,8,8,252,8,8,252,8, 

8.252.8.8.252.8.8.252.8.8.252.8.8 

2518 DATA 252,8,8,252,8,8,252,8,8,252,8, 

8.252.8.8.252.8.8.252.8.8.255.255.192 
2528 DATA 255,255,192 ,255 ;, 255,192,255,25 
5,192,255,255,192,255 ,255,192 

2538 DATA 252,15,192,252,15,192,252,15,1 

92.252.15.192.252.15.192.252.15.192 
2548 DATA 252,15,192,252,15,192,252,15,1 

92.252.15.192.252.15.192.252.15.192 
2558 DATA 252,15,192,252,15,192,254,31,1 

92.255.255.192.255.255.192.255.255.192 
2568 DATA 255,255,192,127,255,123,63,255 
,0 

2578 DATA 255 ,254 ,8,255 ,255., 8,255,255,12 

3.255.255.192.255.255.192.255.255.192 
2538 DATA 252,31,192,252,15,192,252,15,1 

92.252.15.192.252.15.192 

2598 DATA 252,15.192,252,15,192,252,15,1 

92.252.31.192.255.255.192 

2686 DATA 255,255,192,255,255,192,255,25 

5.123.255.255.8.255.254.8 > 

2618 DATA 31,254,8,63,255,6,127,255,128, 

255.255.192.255.255.192.255.255.192 
2628 DATA 254,31,192,252,15,192,252,15,1 

92.252.15.192.252.15.192.252.15.192 
2638 DATA 252,15,192,252,15,192,254,31,1 

92.255.255.192.255.255.192.255.255.192 
2648 DATA 127,255,123,63,255,8,31,254,8 
3888 REM *MMUSIC*** 

3818 Hl=54273:L1=54272 • Al=54277 : Wl=54276 
H2=5423B:L2=54279:A2=542S4 
3811 W2=54283 : HN=23B : ON® 148 : H0=428 WN=56 
6:T1=17:72=17 

3815 P0KE54296,15:P0KEA1,23 •P0KEA2,15 
3828 P0KEH1,17•P0KEL1,37:P0KEH2,4:P0KEL2 
,73:POKEWl,T1:P0KEW2,T2 

3838 FOR I=8T00N:NEXT:POKEWl,8•FOR I=8TOO 
N NEXT 

3048 P0KEH1,21:P0KEL1,154:POKEWl,T1:FOR I 

=8TOON-NEXT: POKEWl,0 

3050 P0KEW1,T1■FOR1=8T00N:NEXT 

3668'P0KEW1,T1:F0RI=8T00N NEXT POKEWl,0: 

P0KEW2,0 

3878 P0KEH1,25 : P0KEL1,177 : P0KEH2,6:POKEL 
2,183:POKEWl,T1:P0KEW2,T2 
3830 FORI=8T0H0 :NEXT -.POKEWl ,8 :P0KEW2,8 
3098 P0KEH2,4:P0KEL2,73 : POKEWl,Ti :P0KEW2 
, T2 :FOR I=8T00N •• NEXT ; POKEWl, 0 


3188 FORI=8T00N:NEXT 

3118 POKE HI , 34 POKEL 1 ,75 POKEWl, Tl -.FOR 3 = 

8TOON:NEXT•POKEWl,8 

2128 POKEWl,Tl■FOR1=8T00N:NEXT 

3138 POKEWl, Tl • FOR I=8T00N : NEXT.. POKEWl, 8 

3148 POKEHi ,43 •• POKEL 1.52 POKEWl, Tl :FORI = 

8T0H0 : NEXT POKEWl , 8 

3150 POKEWl.Tl FOR3=8TOON ;NEXT POKEWl,8 
3168 FORI=8T00N:NEXT 

3178 POKEHI, 34 : POKEL 1 .75 •• POKEWl, T1: FOR 1 = 

8TOON:NEXT:POKEWl,8 

3138 POKEWl,Tl:FOR I=8TOON:NEXT 

3198 POKEWl,Tl FOR3=8TOQN:NEXT POKEWl,8: 

P f ; £ JT H 

3286 POKEHi . 25 : POKELi , 17? P0KEH2,6 •• POKEL 

2,163:POKEHI,Tl:P0KEW2,T2 

3219 FOR I=8TOHO:NEXT:POKEWl,8:P0KEW2,8 

3226 P0KEH2,4 :P0KEL2 ,73:POKEWlTi : P0KEW2 

,T2 FORI=6TOON:NEXT:POKEWl,8 

3238 FOR I=6T0QN : NEXT 

3248 POKEHi,21:POKEL1,154;POKEWl,Ti-FORI 

=8TOON:NEXT:POKEWl,8 

3258 POKEWl,Tl:FOR I=8TOON:NEXT 

3288 POKEWl, Tl .FOR 1=8TOON:NEXT:POKEWl,8 

3278 POKEHI ,43 •• POKEL 1,52 POKEWl, Tl :F0R1 = 

8T0HN;NEXT:POKEWl,8 

3238 POKEHi,48 • POKEL!,288;POKEWl,Tl:FOR I 

=8TOON:NEXT:POKEWl # 8:P0KEW2,8 

3238 POKEHI,38:POKEL!,128:P0KEH2,6•POKEL 

2.188 : POKEWl, Ti ; P0KEW2 ... T2 

3388 FOPI=8T00N : NEXT ■.POKEWl, 8 

3318 FOPI=8T00N:NEXT 

3328 POKEHi , 32 •• POKEL! , 34 .POKEWl , Tl :FORI = 

8TOON:NEXT:POKEWl,8 

3338 POKEWl,Tl•FOPI=8T00N:NEXT 

3348 POKEWl,Ti:FOPJ=8T00N:NEXT:POKEWl,8 

3358 POKEHi,25:POKEL!,17?:POKEWl,Ti:FOR I 

-8T0H0 *. NEXT ; POKEWl ,8 

3388 POKEWl,Ti:FOPI=8T00N:NEXT.POKEWl,6 
33?8 FOR I=8TOON:NEXT 

3388 POKEHI , 22 •• POKEL! , 22? : POKEWl # Ti : FOR I 

=8TOON:NEXT:POKEWl,8 

3338 POKEWl, Tl:FOPI=8TOON NEXT 

3335 POKEWl,Tl:FOP I=8TOON:NEXT:POKEWl,8 

3488 POKEHi,38:POKEL!.128 POKEWl,Tl-FOPI 

=8TOWN:NEXT:POKEWl,8 

3418 POKEHI,43:POKEL!,52■POKEWl,Tl FOPI= 

8TOON • NEXT : POKEWl . 8 : P0.KEW2,8 

3428 POKEHI,34:POKEL!,75’P0KEH2,4:POKEL2 

,73:POKEWl;Ti:P0KEW2,T2 

3438 FOPI=8T0HN:NEXT:POKEWl,8 

3448 POKEWl,Tl:FORI=BTOHN:NEXT:POKEWl,8: 

P0KEW2,8 

3458 P0KEH2,5-P0KEL2,185:POKEWl,Tl:POKEW 
2,T2:FORI=8T0HN:NEXT:POKEWl,8 
3488 POKEWl.Ti:F0PI=8T0HN:NEXT:POKEWl,8: 
P0KEW2,8 

3478 POKEH2,4:POKEL2,73:POKEWl,Ti:P0KEW2 
,T2:FORI=6TOWN:NEXT 

3438 POKEWl,Tl:FOR I=8TOON:NEXT•POKEWl,8: 
P0KEW2,0 





















R0X20 


66 DATA255,239,255,199, 247,159,267,231,2 
43,249,249,1,7,4,14,31 

68 DATA34,54,42,34,34,34,0,0,60,32,32,56 

£Q ft Q 

7eTl>ftTft38, 16,16,28,16,30,0,0,60,36,36,60 
,48,36,0,0 

72 DATft©,0,0,0,254,254,198,198,198,198,1 

98.198.198.198.254.254 

74 DATA©,0,0,8,56,128,243,216,24,24,24,2 

4.24.24.254.254 

76 DftTfte,0,8,0,254,254,193,6,6,254,254,1 

92.192.192.254.254 

78 DATA0,0,0,0,254,254,6,6,6,38,30,6,6,6 
,254,254 

88 DftTftB,8,0,0,192,192,192,192,192,216,2 
16,254,254,24 ,24,24 

82 DftTfte,0,0,0,254,254,132,192,192,254,2 

54.6.6.198.254.254 


18 F OR I=6576T07071:READft■POKE I,ft:NEXT 
3© DftTftS,7,63,127,12" 255 ,255,127,63,15, 
15,31,127,255,255,127 

32 DftTftl92,252,254,255,255,255,255,254,2 
52,254,254,254,252,248,224,0 

34 DATA255,255,255,255,255,£55,255,£55,2 
55,255,255,255,255,255,255,255 

35 DftTfte,0,8,0.0,8,0,8,0,0,S,0,0,0,S,0 
38 DftTfte,0,0,0,0,8,8.28,28,28,62,54,34,8 
,0,8 

48 DftTftS,0,8,8,8,224,124,63,124,224,8,8, 

ft ft 0 ft 

42 DftTfte , 8,0 , B , 8,7,62,252,62,7,0,0,0 ,.8,8 

, 8 

44 DftTftl28,128,80.30,58,53,127,127,56,56 
,16,16,48,48,16,16 

46 DftTftl,1,18,18,92,92,254,£54,28,28,8,8 
, 12,12,8,8 

48 DftTftl2,12,8,8,0,132,133,3,3,133,132,0 

, 0,8,12,12 

58 DftTft48,48,8,0,0,3,131,192,192,131,3,0 

ft 0 ^g; 

52'DATA132,164,132,32,66,74,33,33,165,16 
,28,145,195,79,15,95 

54 DftTftl49,33,33,66,74,66,148,133,132,8, 
48,137,195,242,248,249 

56 DATA68,32,32,47,36,60,8,8,68,36,36,36 

, 36 , 68 , 8,0 

58 D'ftTA68,36,36,68,36,36,8,0,36,36,36,36 
,24,24,0,0 

68 DftTftSl,63,127,252,252,255,255,127,63, 
31,5,5/3,19,63,255 

62 DftTA24S,252,254,63,63,255,255,254,£52 
, 248,160,160,144,280,252,255 
64 DATA255,143,255,227,239,249,243,231,2 
87,159,159,128,£24,32,112,248 


The scientists thought it would be just a 
routine mission. 

They had landed on Selab 4 in search of 
the precious Zelonite ore which contains 
vital metals necessary to keep the nuclear 
reactors on their home planet working and 
the population alive and well. 

But they had only just begun to set up their 
equipment when the ship's early warning 
system began a red alert. As they ran back 
to the ship, the sky already showed the first 
signs of tne impending disaster—shooting 
stars. 

The planet's orbit had taken it directly into 
the path of the huge Orion asteroid belt, the 
largest in the known universe. 

Any attempt to launch the craft and try to 
escape the planet would result in certain 
destruction. 

Are you ready to take the hot seat in what 
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RUNS ON VIC 20 WITH 3K EXPANSION 


BY PAUL KEHOE. 



32 CC=30728 •' V=3687S : S4='v'-i : S2=V- 
=0 

70 7 : ;, r E27151,0 •• PA*37151: PB=37152 : RB=3715 

4 

30 POKEV,15:N=B 

32 HI-PEEK<329)+256 #PEEK<323) 

106 FORM=8TO506 :POKE7530+M,38:NEXT 

110 F 0 R M=7983 T0885 3;POKEM+CC.6: POKEM,29: 

NEXT 

128 POKE?954+CC,4:P0KE7955+CC.4:P0KE7976 
+CC , 4 : P0KE7977 +CC , 4 

138 P0KE7954,42:P0KE7955,43:P0KE7976,44: 
P0KE7977,45 

135 FORI-8T02X:G<I)=7724:NEXT 

148 PR I NT "8" ; SC : PR I NT "9HHMI" ; I). PR IN 

T M lM i lMWMMI -HI 

142 PR IN T"Bt"TAB < 9)"f"TAB<15>"T" 

144 IFI»=>58THEN5808 


158 FORI=0TO2X:IFG(I)-7724THENJ X I) = INT<R 
NIKI)*21):NEXT 

170 FOR I-0TO2X:F <I)=G<I)+J(I) 

175 POKEF (I) -22,38 ••-POKEF < I) -22+1.38 
188 POKEF <I)+CC,5 : POKEF <1)+CC+1,5:POKEF< 
I > ,27 ; POKEF<I)+1,23 

198 G < 1) =G < I > +22 -■ NEXT 

199 REN JOYSTICK 

288 'A=PEEK>:PA> -.POKERB .127 :B=PEEK(PB) •■F'OK 
ERB.255:IFNC8THEN28B 

218 IF AANI>4 > =0 AND < B AND128) =8 TBENMI>= -21 : 
N=1:NA=35:GOT0278 

228 IF(AAND4)=8AN£< AANM6)=8THENMD=-23:N 
= 1 MA=34 GOT0278 

238 IF<AAND4>=8THENMI)=-22 :N=i :NA=31 :GOTO 
278 

248 IF <EANI>123)=8T'HENMI>=+1 N=2--MA-32 :GOT 

a 2 7* Pi 

258" IF < A ANI> 16 > = 0 T HE N MIs=-1 : N=2 : MA=33 : GOTO 

2*70 

268 N=8:GOT0288 
278 ONNGOTO9B0,968 
288 IFN>8 THENGOSUB1080 

235 IF < AANI>32) =0THENN=8 : POKEM!>M2 .. 38 POK 
ES4 8 

298 FOR I=8T0ZK : IFF'EEK (F (I) >22) =29THENii9 

8 

368 I FPEEK <F <I)>22>=420R?EEK<F <I)>22 >=43 
THEN1288 

382 I FPEEK (F < I > >23 ).=420RPEEK < F < I) >23) =43 
THEN1288 
385 NEXT 

318 I FPEEK <M1+M2 >MI> > =270RPEEK (Hi >M2 >NEO = 
28THEN1588 

328 IFHi<7723THENN=0:P0KEM1+H2,38 

338 IF M1 > M 2 > 7944A N I> M1 > N 217 9460R M1 > M 2 > 7 9 6 

2THENN=8 : POKEM 1 >H2 .. 38 

335 IFSC>SFTHEHSF=SF>388 P=P-15:IFIK8THE 

ND=8 

346 GOTO178 


[04 BAT A8,0,8,0,254,254,192,- 254 ' 2 

It ■ ate? I: I 9 !; &: & 

ktttilt ; | 9 1 ;, 254,198 , iSS. 198,254,2 

54,198,198,198,254,^4 2 

Afi BATAB ,0,0,0 /454 , i--4,19o , 1*- , +- • 
54,6,6,198 ,254,454 

188 PRINT“USLOrtl 1 ' . ..moi FARE WAI 

118 PRIHT"*LOAI>ING ROX 4i.-4 , Lt - - 

, 120 ‘ P0K.E198,3 : P0KE632,19 ' -0KE633,13 = POKE 
634,13 


PART 2 


POKE328 ,, 8 : POKE 329 - 0 
3 POKE36379,18:PRINT ,5 U 
)X 20" , "WHMR I TTEN B V P, KEHOE" , ”8 
|1983 H 

28 PRINT"KPRESS ANV KEV TO START" 

38 1FPEEK <197 > =64 THEN38 

56 POKE36367 ,PEEK <36367)OR!-P0KE36S65,13 
POKE36369,254 
59 REM VARIABLES 
68 ZX=1 ; SF=S80 































988 M1=7922:M2=18 

928 F0KEM1+M2+CC , 7 POKEMi+M2,MR 

938 P0KES4,238 ■ GOTO290 

968 H 1=7944 : IFMA=32THENM2=12 •■G0T0938 

978 M2=9 

938 POKE.Ml +M2 + CC , 7 . POKEM1+M2 , HP : P0KES4,2 
38•GOT0298 

1888 P0KEM1+M2.38 : M1=M1 +M& : POKEMi+M2 +CC , 
7 POKEMi+M2.HP:RETURN 
1188 FORI=8T0ZN 

1181 IF PEEK (F (I) +22 > = 2 9 T HE N P 0 KE F < I) +CC , 1 
FOKEF < I) +1+CC , 1 ROKEF < I) , 33 : POKEF < I) +1, 
,39 

iliS POKE94,268 : FORO=1TO20 •• NEXT : P0KES4,6 
• 0=6 

1112 POKEF< I > , 36 : POKEF <I)+1,39:NEXTI 
1138 IFPEEK<F < 6 >+22)=29THENG<0)=7724:D=D 

+ 1 

1140 I FPEEK <F (1) +22) =29THENG < 1) =7724 

+1 

1156 I FPEEK <F (2 > +22) =29THENG (2 > =7724 : D«D 
+ 1 : 

1160 IFPEEK<F(3)+22)=29THEN3(3)=7724:B=I' 

+ 1 

1170 30TO146 

1280 FOR I=8 T02X:POKEF<I) , 30 : POKEF < 2)+1,3 

0 ■ NEXT 

1210 POKE7954+CC,1 -P0KE7955 +CC,1:P0KE795 
4,36:POKE?955,37 

1226 P0KE7976+CC , 1 P0KE7977+CC , 1 •• P0KE797 
.6 36 • POKE?977,37 

1236 POKE94,136 : FOPO=1TO40 : NEXTO •• POKE94 , 
0 3OTO5060 

1560 N=6 : U=M1+M2+MD:P0KEM1+M2,30 
1516 F0RI=BT02X IFF(I)=UTKEN1530 
1526 IFF <I> +i=UTHEN1538 
1522 NEXT 

1536 POKEF (I > +CC , 1 POKEF (I > +1+CC , 1 •• POKEF 
U) ,36 .POKEF U) +1,37 

1540 POKE94,140 : P0KES2,150 F0RN=1T02B : NE 

XT :POKE34,8'P0KES2.0 

1558 POKEF (I > . 38 '■ POKEF < I) +130 

1566 IFU=F<6)ORU=F(8)+1THEN3(8)=7724 

1562 IFU=F(1)OPU=F(1)+1THEN3(1)=7724 


1564 IFU=F<2)ORU=F<2)+1THEN3(2)=7724 

1566 IFU=F <3> ORU=F <3)+1THEN3(3)=7724 

1578 IF2X=1THEN9C= 3 C+18 

1506 IFZX=2THENSC=SC +25 

1596 IF2X=3THENSC=SC+58 

1618 3I>=*3D+1: IF3I>=16THEN32= 0 •• 30T01638 

1615 U=0 •• GOTO 140 

1630 F0RI=8T0ZX:POKEF<I),38 :POKEFCl)+1,3 
8:NEXT 

1658 ZH=2X +1 '• IF 2 X> 3 T HE HZ X = 1 
166B 30TO135 

5680 PPINT"l9Hnn9H9HMnHBO 

5018 IF9C>HITHENHI = 9C:P0KE32S,INT<SC/256 
) P0KES29,SC-256*INT<SC/256) 

5038 FORH=iTO3B08 : NEXT : CLP ' P0KE36S67,PEE 
KC3636?>ftND254 POKE36869,240 30T018 













































T. 


MOTOR RRCER 




You may not be able to pass your 
driving test after 20 sessions with this 
Texas game, but it's worth typing it in 
just for the brilliant graphics. 

The race is run over a twisting road 
through the heart of the countryside. The 
scenery of trees and farmhouses is 
scrolled up from the bottom of the screen 
towards your car. 

Using the S and D keys, you have to 
steer your way through the oncoming 
cars on the track ana try to complete 
as many levels as you can without 
causing a pile up. 

There are five levels of 
difficulty. 


151 CALL CLEAR 

160 CALL CHAR(35."3C4299A1A199423C"> 
170 CALL CHAR(112."FFFFFFFFFFFFFFFF"; 
180 CALL CHAR(113."FF7F3F1F0F070301") 
190 CALL CHAR Cl 14 /"S0C0E0F0F8FCFEFF"; 
200 CALL CHAR(115."FFFEFCF8F0E0C080") 


480 

490 

500 

510 


CALL 

CALL 

CALL 


CHAR(159. 
CHAR(144, 1 
CHAR(128. 


210 

CALL CHAR(116. 

"0103070F1F3F7FFF" 

230 

PRINT " 

tor 

tpr tor ppr" 

240 

PRINT " 

D p 

p p p 

P P c" 

250 

PRINT " 

DD5 

p p ppp p p" 

260 

PRINT " 

ppr 

P P p 

P P c ' 

270 

PRINT " 

□ QP 

qps p 

P PPS" 

280 

PRINT :i 




290 

PRINT " 

tor 

tor tpr 

tpr tpr " 

300 

PRINT " 

P P 

a 

a 

Q 

P DC" 

310 

PRINT " 

DPS 

PDP P 

pp pps " 

320 

PRINT " 

ppr 

D P P 

P ppr " 

330 

PRINT 

pqp 

P P qps 

qps pqp " 

340 

PRINT ss" 


£ MARK 

PARRETT": 

350 

PRINT :::s: 




360 

FOR G«1 TO 

8 



370 

FOR D=2 TO 

16 



380 

CALL. COLOR (11,1 

D. l; 


390 

NEXT D 




400 

NEXt 6 




410 

ET =15 




420 

CALL CLEAF; 




430 

U-5 




440 

KK*25C 




450 

DD=0 




460 

LIV=3 




470 

CALL COLOR(1.3, 

4) 



1 FFFFFFFFFFFFFFFF' 
101038387C7CFE10" 
3F7FFFFFFFFF7F3F ’ 


CALL CHAR(129. "FGFEFFFFFFFFFEFC' 














MOTOR RACER 



520 CALL CHAR < 120. 'MBDFFBD2424BDFF99" 

530 CALL CHAR(121."8387834337376723") 

540 CALL CHAR(136."027E3F7F7F3E1E03") 

550 CALL CHAR (40. " BDFFBD2424.BDFF99" ) 

560 CALL CHAR<41."4767672373176372"" 

570 REM ******** 

580 C'ALL CHAR (1 12. "24247E7EFFFF" : 

590 CALL CHAR(104."53163171631637") 

600 CALL CHAR(96."FFBDBDFFFFFFFFFF" ' 

610 X 1 = 16 

620 CALL. COLOR (2,7. 15: 

630 CALL COLOR(10.11,7) 

640 CALL.COLOR<11,15.15; 

650 CALL COLOR(12.5.15) 

660 CALL COLOR(13,11.45 
670 CALL COLOR(14.2.15) 

680 CALL COLOR<15,13.45 

1 690 CALL COLOR(16.15,16) 

700 FOR D= : 3 70 9 

710 CALL COLOR(D.16,2V 

720 NEXT D 

730 CALL CLEAR 

740 Y=16 

750 X=16 

760 FOR D :=: 14 TO IE 

770 CALL VCHARd.D, 159,24) 

7SO NEXT D 

790 CALL VCHAR<1,13,128,23) 

800 CALL VCHAR <1, 19,129.23: 

310 CALL VCHAR(1,1,31,24) 

820 CALL VCHAR(1,2,31.245 
330 CALL VCHAR(1.31,31,24) 

840 CALL VCHAR(1,32,31.24; 

350 RESTORE 

860 READ T 

370 READ R 

880 IF T=0 THEN 92C 

390 CALL HCHAR(15.T,R) 

900 GOTO 860 

710 DATA 14.33,15,84.1*6,65,17,82,18,84,0,0 

920- A=14 

930 RANDOMIZE. 

940 IF INT(RND#2)+1=2 THEN 950 ELSE 980 
950 A=A+1 

960 IF A>22 THEN 1580 
970 GOTO 1000 
980 A=A—1 

990 IF A<4 THEN 1600 
1000 CALL HCHAR(24.A,159,U) 

1010 CALL HCHAR < 24,A-1. 1285 
1020 CALL HCHAR(24.A+U,129) 

1030 PRINT 
1040 0=1NT(RND*6)+1 
1050 IF Q~3 THEN 1300 ELSE 1060 

1060 IF 0=5 THEN 1260 ELSE 1070 

1070 IF 0=2 THEN 1080 ELSE 1360 

1080 IF INT # (RND*2) +1=2 THEN 1090 ELSE 1360 4 
1090 GG=A+INT(RND*U5 
1100 CALL HCHAR(22.GG.136) 

1110 GOTO 1360 
1120 CALL COLOR(12.5,2) 

1130 CALL HCHAR< Y.X.120 5 
1140 CALL HCHAR(Y-l,XI,159) 

1150 CALL HCHAR< Y,X.136 5 
1160 CALL COLOR(12.5,ET) 

1170 IF INT(RND*2> +1=2 THEN 1200 
1180 X = X-2 
1190 GOTO 1210 
1200 X = X+2 

1210 IF INT(RND*2)+1=2 THEN 1240' 

1220 Y=Y+1 
1230 GOTO 1240 

1240 CALL SOUND(-500,1000,9.-5.9: 

1250 GOTO 1500 
1260 EE=INT<RND*27>+3 


1270 IF (EE>A-1)*(EE<A+6)THEN 1260 
1280 CALL HCHAR<23.EE.144) 

1290 GOTO 1360 - 
1300 T=INT(RND*3) 

1310 CALL HCHAR(22.A+T.40) 

1320 CALL HCHAR < 23,A+T.112) 

1330 RANDOMIZE 

1340 S=INT<RND*500) + 11C 

1350 CALL SOUND(-900.S, 0, S+10,0,KK,30,-4,0) 
1360 IF INT(RND*4>+1*2 THEN 1370 ELSE 1380 
1370 REM CAR NOISE** 

1380 CALL SOUND <-1000,KK,30,KK,30,KK,30,-4.0 
1390 CALL JOYSTd. XX, YY) 

1400 SOSC+.1 
1410 PP=PP+.l 
1420 DD=DD+.1 

1430 IF DD=1 THEN 1440 ELSE 1470 
1440 KK= INT ( <RND*5)+5‘) *100 
1450 DD=0 

1460 CALL SOUND(-10.-6,0) 

1470 IF PP>3.9 THEN 2050 
1480 IF SO 10 THEN 2160 
1490 X=X+XX/4 
1500 CALL GCHAR(Y.X.C) 

1510 IF 0112 THEN 1540 
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2150 GOTO 1390 

2160 FOR D~1 TO 10 

2170 CALL SOUND(10.110ID.0) 

2180 NEXT D 

2190 CALL COLOR(1.2.2) 

2200 CALL COLOR(2,7.2) 


2210 CALL COLOR(11.11,2) 

2220 CALL COLOR(12,5.2) 

2230 CALL COLOR(13.11,2) 

2240 CALL COLOR(14,15.23 
2250 CALL COLOR(15.13.2) 

2260 CALL COLOR(16*2-2) 

2270 CALL CHAR(128."000000001") 
2280 CALL CHAR(129."000000OO1»' 
2290 IJ=4 
2300 ET---2 * 

2310 GOTO 1^40 


2030 PRINT : : "YOU MANAGED' 1 

sINT(SC)s"MILES":: 

2040 GOTO 2Q4C 

2050 REM MULTIPLE SOUNDS 

2060 CALL HCHAR(V-l,XI.159) 

2070 PP=0 

2080 *V«Y+i 


2090 IF Y>21 THEN 2100 ELSE 2150 
2100 Y=2; 

2110 PP=0 
2120 U*U-1 

2130 IF U<2 THEN 2140 ELSE 2150 
2140 U=2 


1520. IF C=136 THEN 1120 
1530 IF CO.159 THEN 162C 
1540 CALL HCHAR(Y.X,120) 

1550 -CALL HCHAR(Y-1.X1. 159; 

1560 X1=X 

1570 GOTO 930 

1580 A=A-2 

1590 GOTO 1000- 

1600 A=A+2 

1610 GOTO 1000 

1620 REM CRASH 

1-630 CALL HCHAR < Y-l , X 1 . 159 , 

1640 CALL HCHAR(Y.X.121) 

1650 CALL SOUND(200,-6.05 
1660 CALL SOUND(-1000.-7.0) 

1670 PL1-A+1 
1680 LF' 1 =23 
1690 PL«A 
1700 LF'=23 

1710 FOR DF=24 TO (Y+DSTEP -1 
1720 CALL COLOR(9.8.16: 

1730 CALL SOUND(400.477,0,479.0,483,0) 
1740 CALL HCHAR (LF'.PL. 96) 

1750 CALL HCHAR(LP1.PL1.159) 

1760 LPl-LF 
1770 F’L 1 =F'L 
1780 LP*LP-1 

1790 IF PL<X-1 THEN 1860 
1800 IF PL.>X +1 THEN 188C 
1810 CALL GCHAR(LP.PL.FF) 

1820 IF FF0159 THEN 1880 


1830 CAL.L GCHAR (LP. PL. FF 
1840 IF FF0159 THEN I860 
1850 GOTO 1910 

1860 PL=PL+1 

1861 YT=YT+1 

1862 IF Y.T>9 THEN 1900 
1870 GOTO 1810 

1880 PL=PL—1 

1881 YT»YT+1 

1882 IF YT>9 THEN 1900 
1890 GOTO 1830 

1900 YT=0 
1902 PL«PL1 

1910 CALL SOUND(400.444 
.0,446,0,448,0) 

1920 CALL COLOR(9,8.75 
1930 NEXT DF 
1940 LI V : =L I V—l 


1950 IF LIV=0 THEN 2020 
I960 CALL SCREEN(4) 

1970 FOR D=1 TO 200 
1980 NEXT D 
1990 CALL CLEAR 
2000 X1~16 
2010 GOTO 750 
2020 CALL SCREEN(55 
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SKIM 



Look, I know the sun is shin¬ 
ing and you're sitting with an 
ice lolly in your hand reading 
this. But, before you know it, 
the snow will be falling and 
you'll be wishing that you 
had taken this opportunity to 
get in a bit of winter sports 
practice! 

You control a skier on a 
slalom course. Your object is 
to hit the marker flags and 
avoid the trees. Your skier 
moves constantly left and 
right at a speed determined 
at the beginning of the _ 
jame. So you use keys 7' 
up) and '6' (down) to control 
lim. At the end of each run, 
the computer will tell you just 
how fast you were aoina. 

There are three skill levels to 
try. Three is the fastest. 
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It is the year 2234 and the human race nas bpen freed from the tedium 
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What do you do when you've just reached the 
final screen of Manic Miner and your Mum comes 
along demanding to use the TV to watch some¬ 
thing really unimportant like Dallas or Coronation 
Street? You have to give in don't you—otherwise 
you won't be allowed near the TV again for 
weeks! 

Here at C&VG we know all about these 
problems. And that's why we've come up with this 
great competition. We've got TWO very special 
Microvitec Cub colour monitors which work with 
all of the top selling computers. 

You'll never have to compete for TV time again 
with one of these wondrous devices. You can tell 
how good they are by the fact that Microvitec has 
been chosen to supply monitors to every primary 
and secondary school in the country as part of the 
government's Micros in Schools scneme. You may 
have already used one, in fact. We've got one in 
the C&VG office and swear by it for our screen 
shots. 

So, what do you have to do to collect one of 
these terrific prizes? Just write us an amusing 
caption to the cover illustration of this book of 
games. Just what are the two aliens saying to 
each other-rand what is that little robot thinking? 
The more original you make your punchline, me 
more chance you nave of being one of our two 
winners. 

So get your scriptwriter's hat on and dream up 
a funny line or three. Fill in the coupon—we can't 
accept any entries which don't come on one—and 
send it to Caption Contest, Computer & Video 
Games, Durrant House, 8 Herbal Hill, London, 
EC1R5EJ. 

Normal C&VG contest rules apply and the 
editor's decision is, as always, final. No corre¬ 
spondence will be entered into. 

We all need a good laugh here at C&VG since 
the Bug Hunter lost his joke book—so make those 
captions really funny! 



mi 

A SUPER MICROVITEC 
CUB COLOUR 
MONITOR 































